Дан массив X(N,M) . Найти номер тех строк массива, элементы которых упорядочены по возрастанию. Сделать в паскале

Program programma;uses crt;var i,j,m, n, k: integer;    a:array [1..100, 1..100] of integer;begin clrscr;      randomize;      write('N = '); readln(n);      write('M = '); readln(m);      for i:=1 to n do          begin          for j:= 1 to m do          a[i,j]:=random(50);      end;      writeln;      k:=0;      for i:=1 to n do      begin      for j:= 1 to m do      write(a[i,j]:5);      writeln;      end;      for i:=1 to n do      begin      for j:= 1 to m-1 do          if  (a[i,j]<=a[i,j+1]) then  k:=k+1;          writeln;          if (k=m-1) then writeln ('Номер строки: ', i);          k:=0;      end;end.