Квадратная матрица. Вывести № столбиков, элементы которых составляют возрастающую последовательность

Program max_st;
uses crt;
const n=3; 
Var
A: array[1..n,1..n] of integer;
min: array[1..n] of integer;
f: array[1..n] of integer;
i,j,l,nom,t:integer; 
begin
//начало ввода данных в матрицу
for i:=1 to n do //stolbci
begin
for j:=1 to n do 
begin 
A[i,j]:=random(60);
write(A[i,j],' ');
 
end;
writeln();
end; // конец ввода данных в матрицу
 
for j:=1 to n do 
begin
min[j]:=a[j,1];
for i:=1 to n do //stolbci
begin
if a[i,j]>min[j] then
min[j]:=a[i,j];
f[j]:=i;
end;
end;
 
end;
 
for j:=1 to n do
write(f[j]);
end.

Program max_st;
uses crt;
const nmax=20;
Var a:array[1..nmax,1..nmax] of integer;
    n,i,j,k,p:integer;
begin
repeat
write('Размер матрицы от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Введите элементы матрицы, целые числа, по столбцам,');
writeln(' в том числе и упорядоченные по возрастанию');
//начало ввода данных в матрицу
for j:=1 to n do
 begin
  writeln('Столбец ',j);
  for i:=1 to n do
   begin
    write('a[',i,',',j,']=');
    readln(a[i,j])
   end
 end;
clrscr;
writeln('Полученая матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln
 end;// конец ввода данных в матрицу
writeln('Номера столбцов, где элементы упорядочены по возрастанию:');
k:=0;
for j:=1 to n do
 begin
  i:=2;
  p:=0;
  while (i<=n)and(p=0)do
  if a[i,j]<=a[i-1,j] then p:=1
  else i:=i+1;
  if p=0 then
   begin
    k:=1;
    write(j,' ')
   end;
 end;
if k=0 then write('Таких столбцов нет ')
end.