В каждом столбце максимальный элемент столбца переставить с первым элементом столбца (в чем ошибка?)

program fh;
var
i,j,m,n,t,max:integer;
A:array[1..100,1..101] of integer;
B:array[1..100,1..99] of integer;
c:array[1..99] of integer;
begin
max:=-9008;
writeln('введите m,n');
readln(m,n);
writeln('введите элементы массива');
 for i:=1 to n do
  for j:=1 to m do
  begin
  write('A[',i,',',j,']=');
  readln(A[i,j]);
  end;
   for i:=1 to n do
    for j:=1 to n do
    begin
    if A[i,j]>0 then max:=A[i,j];
    t:=A[1,j];
    A[1,j]:=max;
    A[i,j]:=t;
    end;
     for i:=1 to n do
    for j:=1 to n do
    writeln(A[i,j]);
    end.

program Primer1;
 
var
  A: array[1..20,1..20] of Integer;
  zam,max: Integer;
  Nm,Mm,n,i,j: byte;
 
BEGIN
  Write('Введите размер квадратной матрицы: ');
  ReadLn(n);
  WriteLn;
  WriteLn('Введите элементы матрицы:');
  for i:=1 to n do
  for j:=1 to n do
  begin
    Write('A[',i,',',j,']: ');
    ReadLn(A[i,j]);
  end;
  WriteLn;
  WriteLn('Вывод массивы А:');
  for i:=1 to n do
  begin
    for j:=1 to n do Write(A[i,j]:5);
    WriteLn;
  end;
  WriteLn;
  for j:=1 to n do
  begin
    max:=A[1,j];
    for i:=2 to n do
    if A[i,j]>max then
    begin
      max:=A[i,j];
      nM:=i;
      mM:=j;
    end;
    zam:=A[1,j];
    A[1,j]:=A[nM,mM];
    A[nM,mM]:=zam;
  end;
  writeLn('Вывод измененного массива А:');
  for i:=1 to n do
  begin
    for j:=1 to n do Write(A[i,j]:5);
    WriteLn;
  end;
  ReadLn;
END.