Найти максимальный элемент для каждого столбца матриц A(n,n) и B(m,m) - Free Pascal

program maxelst;
var a,b:array[1..100,1..100] of integer;
i,j,n,m,max:integer;
begin
Writeln('Vvedite N and M');readln(n,m);
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(50);
for i:=1 to m do
for j:=1 to m do
b[i,j]:=random(50);
writeln('Isxodnya matrica 1');
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
for j:=1 to n do
 begin
 max:=0;
 for i:=1 to n do
 if a[i,j]>max then max:=a[i,j];
 writeln('Max v stolbce ',j,'=',max);
 end;
writeln('Isxodnya matrica 2');
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
for j:=1 to n do
 begin
 max:=0;
 for i:=1 to m do
 if a[i,j]>max then max:=a[i,j];
 writeln('Max v stolbce ',j,'=',max);
 end;
end.