Дан двумерный массив размерностью NхM, заполненный случайным образом. Определить, есть ли в данном массиве строка, в которой (программа Паскаль)

USES Crt;
 CONST   N=6;   M=8;
 VAR
   A:ARRAY[0..N,0..M] OF INTEGER;
   I,J,K,FL:BYTE;   MAX:INTEGER;
 BEGIN
   ClrScr;   Randomize;
   { Заполнение двумерного массива случайным образом и вывод в виде прямоугольной матрицы }
   WriteLn(' Значения элементов двумерного массива');
   FOR I:=1 TO N DO Begin
     FOR J:=1 TO M DO Begin
       A[I,J]:=Random(20);   Write(A[I,J]:3);
     End;     WriteLn;
   End;   WriteLn;
   { Нахождение наибольшего значения }
   MAX:=A[1,1];
   FOR I:=1 TO N DO
     FOR J:=1 TO M DO
       IF A[I,J]>MAX THEN MAX:=A[I,J];
   WriteLn(' Максимальное значение = ',MAX);
   { Нахождение строки, в которой два элемента имеют наибольшее значение }
   FL:=0;
   FOR I:=1 TO N DO Begin
     K:=0;
     FOR J:=1 TO M DO
       IF A[I,J]=MAX THEN Inc(K);
     IF K=2 THEN Begin WriteLn('В ',I,' строке два элемента имеют наибольшее значение');                                      
                                      FL:=1;
     End;
   End;
   IF FL=0 THEN WriteLn(' Нет строк, в которых два элемента имеют наибольшее значение');
 END.