Указанный столбец массива (номер которого вводится с клавиатуры) упорядочить по возрастанию методом обмена - Pascal

Формулировка задачи:

Массив размером 7, строк 7 столбцов заполняется числами из входного текстового файла. Исходный массив распечатывается. Заказанный столбец массива (номер которого вводится с клавиату-ры) упорядочить по возрастанию методом обмена. Переделанный массив распечатать.

Решение задачи: «Указанный столбец массива (номер которого вводится с клавиатуры) упорядочить по возрастанию методом обмена»

Листинг программы

const n=7;
var a:array[1..n,1..n] of integer;
    f:text;
    i,j,k,x:integer;
begin
assign(f,'input.txt'); //файл в папке с программой
reset(f);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    read(f,a[i,j]);
    write(a[i,j]:3);
   end;
  writeln;
 end;
close(f);
repeat
write('Выберите столбец от 1 до ',n,' k=');
readln(k);
until k in [1..n];
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i,k]>a[j,k] then
 begin
  x:=a[i,k];
  a[i,k]:=a[j,k];
  a[j,k]:=x;
 end;
writeln('Сортировка столбца ',k,' по возрастанию');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
end.

Объяснение кода листинга программы

Объявлены следующие переменные: n - номер столбца для сортировки (7); a - двумерный массив (1..n,1..n) для хранения чисел (7х7); f - текстовый файл для чтения/записи (input.txt); i, j, k, x - целочисленные переменные для выполнения операций (обычно используются значения от 1 до 9);
Чтение чисел из файла input.txt в массив a.
Вывод содержимого массива a на экран.
Пользователю предлагается выбрать номер столбца для сортировки (от 1 до 7).
Реализован алгоритм сортировки пузырьком для выбранного столбца.
Запись отсортированного столбца в файл output.txt.
Повторный вывод отсортированного столбца на экран.