Составить одномерный массив из номеров столбцов матрицы, элементы которых упорядочены по возрастанию

const nmax=10;
var a:array[1..nmax,1..nmax] of real;
    b:array[1..nmax] of byte;
    m,n,i,j,k,f:byte;
begin
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Введите элементы матрицы по столбцам, в том числе упорядоченные по возрастанию');
for j:=1 to m do
 begin
  writeln('Столбец ',j);
  for i:=1 to n do
   begin
    write('a[',i,',',j,']=');
    readln(a[i,j]);
   end;
 end;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:6:2);
  writeln;
 end;
k:=0;
for j:=1 to m do
 begin
  f:=0;
  i:=1;
  while(i<n)and(f=0) do
  if a[i,j]>=a[i+1,j] then f:=1
  else inc(i);
  if f=0 then
   begin
    inc(k);
    b[k]:=j;
   end;
 end;
if k=0 then write('Нет столбцов, упорядоченных по возрастанию')
else
 begin
  writeln('Номера столбцов, упорядоченных по возрастанию');
  for i:=1 to k do
  write(b[i],' ');
 end;
end.