Сортировка двумерного массива методом прямого выбора

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