Упорядочить по возрастанию каждый столбец матрицы

program Project1;
const
  maxrow = 10;
  maxcol = 10;
var
  a: array[1..maxrow,1..maxcol] of integer; { Переменная для хранения массива.}
  n,m: integer; { Переменные для хранения значения строк и столбцов двумерного массива. }
  i,j,k: integer; { Вспомогательные переменные для организации циклов.}
  tmp: integer; {Промежуточная переменная для сортировки массива}
begin
  randomize;
  write('Введите значение количества строк в двумерном массиве (не более ',maxrow,'): ');
  Readln(n);
  write('Введите значение количества столбцов в двумерном массиве (не более ',maxcol,'): ');
  Readln(m);
  for i:= 1 to n do
    for j:= 1 to m do
      a[i,j]:= random(21);
  writeln('Исходный массив: ');
  for i:= 1 to n do
    begin
      for j:= 1 to m do
        write(a[i,j]:5);    { Вывод двумерного массива в консоль.}
      Writeln;
    end;
  for j:= 1 to m do         {Сортировка столбцов по возрастанию}
    for i:= 1 to n-1 do
      for k:= 1 to n-i do
        if a[k,j] > a[k+1,j] then
        begin
          tmp:= a[k,j];
          a[k,j]:= a[k+1,j];
          a[k+1,j]:= tmp;
        end;
   writeln('Массив в котором отсортированы столбцы по возрастанию: ');
  for i:= 1 to n do
    begin
      for j:= 1 to m do
        write(a[i,j]:5);    { Вывод двумерного массива в консоль.}
      Writeln;
    end;
 
  Readln;
end.