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

procedure sort(var x: array of integer);
var
  i, j, t: integer;
begin
  for i := low(x) + 1 to high(x) do
    begin
      t := x[i];
      j := i - 1;
      while (j > 0) and (x[j] < t) do
        begin
          x[j + 1] := x[j];
          dec(j)
        end;
      x[j + 1] := t
    end
end;
 
const
  m = 5;
  n = 10;
var
  a: array[1..m, 1..n] of integer;
  i, j: integer;
begin
  randomize;
  writeln('Исходный массив:');
  for i := 1 to m do
    begin
      for j := 1 to n do
        begin
          a[i, j] := -99 + random(199);
          write(a[i, j]:4)
        end;
      writeln
    end;
  sort(a[1]);
  sort(a[m]);
  writeln('Массив с отсортированными первой и последней строками:');
  for i := 1 to m do
    begin
      for j := 1 to n do write(a[i, j]:4);
      writeln
    end;
  readln
end.