В двумерном массиве отсортировать указанный столбец

const
  m = 5; //количество строк
  n = 10; //количество столбцов
var
  a: array[1..m, 1..n] of integer; //массив
  i, j, k, c, t: integer;
begin
  randomize;
  writeln('Исходный массив:');
  //генерация и печать исходного массива
  for i := 1 to m do //цикл по строкам
    begin
      for j := 1 to n do //цикл по столбцам
        begin
          a[i, j] := -99 + random(199); //генерируем элемент массива в диапазоне [-99..99]
          write(a[i, j]:4) //печатаем элементы строки массива
        end;
      writeln //строка напечатана, переход на следующую строку
    end;
  repeat //Ввод номера столбца с проверкой
    write('Введите номер столбца [1..', n, ']: ');
    readln(k) //вводим номер столбца
  until k in [1..n]; //если не в диапазоне [1..n], то повторяем ввод
  //сортировка
  for i := 1 to m - 1 do //номер текущего минимального элемента от первого до предпоследнего элемента столбца
    begin
      c := i; //пока считаем, что a[1, i] является текущим минимумом
      for j := i + 1 to m do //ищем минимальный от i+1 до последнего элемента столбца
        if a[c, k] > a[j, k] then //если текущий элемент столбца меньше текущего минимума, то
          c := j; //считаем текущий элемент минимумом
      if c > i then //если a[1, i] не минимум, то
        begin //обмениваем a[1, i] с найденным минимумом
          t := a[i, k];
          a[i, k] := a[c, k];
          a[c, k] := t
        end
    end;
  //печатаем результат
  writeln('Массив с отсортированным столбцом ', k, ':');
  for i := 1 to m do //цикл по строкам
    begin
      for j := 1 to n do write(a[i, j]:4); //печатаем строку
      writeln //строка напечатана, переход на следующую строку
    end;
  readln
end.