Для каждой матрицы отсортировать столбцы в порядке возрастания их максимальных элементов

program three_matrics;
uses crt;
var
n,m:integer;
mat: array[1..20,1..20] of integer;
max:array[1..20] of integer;
 
procedure vvod;
var
i,j:integer;
begin
writeln('stroki:');
readln(m);
writeln('stolbci:');
readln(n);
for i:=1 to n do
for j:=1 to m do
begin
writeln('element ',i,'x',j,'=');
readln(mat[i,j]);
end;
end;
 
procedure sort;
var
i,j,t:integer;
q:boolean;
begin
for i:=1 to n do
begin
max[i]:=0;
for j:=1 to m do
begin
if mat[i,j]>max[i] then max[i]:=mat[i,j];
end;
end;
q:=true;
while q do
begin
q:=false;
for i:=2 to n do
begin
if max[i-1]>max[i] then 
begin
for j:=1 to m do
begin
t:=mat[i-1,j];
mat[i-1,j]:=mat[i,j];
mat[i,j]:=t;
end;
t:=max[i-1];
max[i-1]:=max[i];
max[i]:=t;
q:=true;
end;
end;
end;
end;
 
procedure vyvod;
var
i,j:integer;
begin
writeln('otsortirovannaya matrica:');
for i:=1 to n do
for j:=1 to m do
begin
writeln('element ',i,'x',j,'=',mat[i,j]);
end;
end;
 
begin
clrscr;
writeln('vvedite pervuyu matricu');
vvod;
sort;
vyvod;
writeln('vvedite vtoruyu matricu');
vvod;
sort;
vyvod;
writeln('vvedite tretiu matricu');
vvod;
sort;
vyvod;
end.