Дан массив 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.