Получить номера рядов, элементы которых размещены в порядке возрастания - Pascal ABC - Ответ 8596959

program vozrast;
uses crt;
var a: array[1..10,1..10] of integer; //надеюсь не собираетесь вводить 10000 элементов?
    m,n,i,j,f,k: integer;
begin
repeat
writeln('введите m, n от 2 до 10:');
readln(m,n);
until(m in [2..10])and(n in [2..10]);
writeln('Введите элеметы масства по столбцам, в том числе упорядоченные по взрастанию');
for j:=1 to n do
 begin
  writeln('Столбец ',j);
  for i:=1 to m do
   begin
    write('a[',i,',',j,']=');
    readln(a[i,j]);
   end;
 end;
clrscr;
writeln('Массив:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:6);
  writeln;
 end;
writeln('Номера столбцов упорядоченных по возрастанию:');
k:=0;
for j:=1 to n do
 begin
  f:=0;
  i:=2;
  while(i<=m)and(f=0) do
  if a[i,j]<a[i-1,j] then f:=1
  else inc(i);
  if f=0 then
   begin
    k:=1;
    write(j,' ');
   end;
 end;
if k=0 then write('Таких столбцов нет')
end.