Найти максимальный элемент для каждого столбца матриц размерностью NxN

const N = 5;
type tmas = array [1..N,1..n] of longint;
 
procedure input (var m:tmas);
var i,j,k:longint;
begin
    randomize;
    for i:=1 to N do
    for j:=1 to N do
    begin
        k:=random (201)-100;
        m[i,j]:=k;
    end;
end;
 
function calc (m:Tmas):longint;
var i,j,max:longint;
begin
    for j:=1 to N do
    begin
        max:=m[1,j];
        for i:=2 to N do
            if m[i,j] > max then
                max:=m[i,j];
        write(' ',max,' ');
    end;
end;
 
procedure output (m:Tmas);
var i,j:longint;
begin
    for i:=1 to N do
    begin
        for j:=1 to N do
        write (m[i,j]:4);
        writeln;
    end;
end;
 
var m:Tmas;
begin
    input (m);
    output (m);
    writeln (calc(m));
end.

Uses Crt;
const
m=1000;
var
a: array[1..m, 1..m] of integer;
i,j:byte;
mn,n:integer;
begin
write('n=');
read(n);
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(11);
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j]:3);
writeln; end;
for j:=1 to n do begin
mn:=a[1,j];
for i:=1 to n do
if a[i,j]<mn then begin
mn:=a[i,j]; end;
writeln('min ',i,'stlb=',mn);
end;
end.