Отсортировать элементы столбцов двумерного массива по возрастанию

{Составьте программу упорядочения по возрастанию элементов каждого столбца 
двумерного массива С[1..5,1..4]. Массив заполнен случайными вещественными 
числами от -20 до 20.}
program p;
 
uses
  crt;
 
const
  n = 5; m = 4;
 
var
  a: array[1..n, 1..m] of real;
  b: array[1..500] of integer;
  buf:real;
  i, j, f, sumdig, imax, max, tmp, min, sum, x, y, s, x1, y1, k, summ2, pff, k2: integer;
 
begin
  clrscr;
  randomize;
  writeln('Ввод пределов ДСЧ');
  readln(x1, y1); // -20,20
  writeln('Массив: ');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(y1 - x1 + 1) + x1;          {Заполнение массива}
      write(a[i, j]:6);               {Вывод массива}
    end;
    writeln;
  end;
  {Сортировка столбцов по убыванию}
  for j := 1 to m do
    for i := 1 to n - 1 do
      for k := i + 1 to n do
        if a[i, j] > a[k, j] then
        begin
          buf := a[i, j];
          a[i, j] := a[k, j];
          a[k, j] := buf;
        end;
  writeln('Отсортированные элементы столбцов:');
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j]:6);                     {Вывод отсортированного массива}
    writeln;
  end;
end.