Отсортировать первую и последнюю строки в двумерном массиве целых случайных чисел

const
  n = 4; {строки}
  m = 6; {столбцы}
 
type
  matrix = array [1..n, 1..m] of integer; {матрица, двумерный массив}  
 
var
  a : matrix;  
 
{процедура пузырьковой сортировки
строки с номером "row" матрицы "mtr" (формальные параметры)}
procedure bubbleSort(var mtr : matrix; row : integer);
var
  i, j, k : integer;
begin
  for i := 1 to m do
    for j := m downto i do
      {по возрастанию, для убывания сменить знак на <}
      if mtr[row, i] > mtr[row, j] then
      begin
        k := mtr[row, i];
        mtr[row, i] := mtr[row, j];
        mtr[row, j] := k
      end
end;
 
{процедура заполнения матрицы "mtr"}
procedure input(var mtr : matrix);
var i, j : integer;
begin
  for i := 1 to n do
    for j := 1 to m do
      mtr[i,j] := random(100)
end;
 
{процедура вывода матрицы "mtr"}
procedure output(mtr : matrix);
var i, j : integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to m do write(mtr[i,j]:4);
    writeln
  end
end;
 
{ОСНОВНАЯ ПРОГРАММА}
begin
  {создаем матрицу и выводим}
  randomize;
  writeln('исходная матрица:');
  input(a);
  output(a);
  {сортируем 1 и последнюю строки}
  bubbleSort(a, 1);
  bubbleSort(a, n);
  {выводим новую, отсортированную}
  writeln('после сортировки:');
  output(a)
end.