В двумерном массиве столбцы поставить в порядке возрастания максимальных элементов столбцов - Turbo Pascal

program lab9;
const n=4;
m=4;
var
a:array[1..n,1..m] of real;
max:array[1..4] of real;
i,j,k,l:integer;
v:real;
f:text;
begin
assign(f,'lab9.txt'); rewrite(f); writeln;
writeln('Введите массив размером ',m,'x',n);
writeln(f,'Введите массив размером ',m,'x',n);
for i:=1 to n do
for j:=1 to m do
begin
read(a[i,j]);
write(' a[',i,',',j,']=',a[i,j]:5:3);
write(f,' a[',i,',',j,']=',a[i,j]:5:3);
end;
for i:=1 to n do
      for j:=1 to m-1 do
      begin
            if i=1 then
           begin
           max[i]:=a[i,j];
                if max[i]<a[i,j+1] then
                max[i]:=a[i,j+1];
           end
      else
        if i=2 then
           begin
           max[i]:=a[i,j];
                if max[i]<a[i,j+1] then
                max[i]:=a[i,j+1];
           end
           else
             if i=3 then
           begin
           max[i]:=a[i,j];
                if max[i]<a[i,j+1] then
                max[i]:=a[i,j+1];
           end
           else
             if i=4 then
           begin
           max[i]:=a[i,j];
                if max[i]<a[i,j+1] then
                max[i]:=a[i,j+1];
           end;
           end;
repeat k:=0;
for i:=1 to m-1 do
begin
if max[i]>max[i+1] then
begin
for i:=1 to n-1 do
for j:=1 to m do begin
v:=a[i,j];
a[i,j]:=a[i+1,j];
a[i+1,j]:=v;
k:=k+1;
end;     end;
until k=0;
for i:=1 to n do
begin
write(f,' max[',i,']=',max[i]:5:3);
write (' max[',i,']=',max[i]:5:3);
end;
writeln(' Массив после сортировки');
writeln(f, 'Массив после сортировки:');
for i:=1 to n do
for j:=1 to m do begin
write(f,' a[',i,',',j,']=',a[i,j]:5:3);
write (' a[',i,',',j,']=',a[i,j]:5:3);
if (i mod m=0) or (i=n) then
begin
writeln; writeln(f);
end
end;
end.