Составьте программу, упорядочивающую по возрастанию элементы каждого столбца матрицы размером m*n — Pascal(Паскаль)

const 
n=6;
m=8;
var
a:array[1..n,1..m] of integer;
i,j,t,k,v:integer;
begin
for i:=1 to n do
    begin 
        for j:=1 to m do
          begin
            a[i,j]:=random(40);
            write('  ',a[i,j]:3);
          end;
        writeln();
    end;
writeln('--------') ; 

for j := 1 to m do
  for i := 1 to n - 1 do
    begin
      t := i;
      for k := i + 1 to n do
        if a[k, j] < a[t, j] then
          t := k;
      if t <> i then
        begin
          v := a[i, j];
          a[i, j] := a[t, j];
          a[t, j] := v;
        end;
    end;

writeln('--------') ; 

for i:=1 to n do
    begin 
        for j:=1 to m do
          begin
             write('  ',a[i,j]:3);
          end;
        writeln();
    end;
    
end.