Отсортировать главную диагональ массива по убыванию методом «пузырька» - Pascal ABC

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

Дан массив из n x m элементов. Отсортировать главную диагональ массива по убыванию методом «пузырька». В коде выдает ошибку, помогите,пожалуйста, исправишь ошибку.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Sockets, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    TcpServer1: TTcpServer;
    procedure sort;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure TcpServer1Accept(Sender: TObject; ClientSocket: TCustomIpClient);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  a: array [1..4,1..4] of integer;
implementation
 
{$R *.dfm}
 procedure TForm1.sort;
var i,j,r,n,max,b,ind:integer;
begin
n:=4;
for i:=1 to n-1 do
for j:=1 to n-1 do
begin
 
for i:=1 to n do
for j:=1 to n do
begin
if a[j,j]<a[j+1,j+1] then
begin
r:= a[j,j];
a[j,j]:=a[j+1,j+1];
a[j+1,j+1]:=r;
end;
begin
b:=a[ind,ind];
a[ind,ind]:=a[i,j];
a[i,j]:=b;
 
end;
 
end;

procedure TForm1.TcpServer1Accept(Sender: TObject;
  ClientSocket: TCustomIpClient);
begin
  ClientSocket.ReceiveBuf(a,sizeof(a));
  Label1.Caption:='Данные получены';
  sort;
  Label2.Caption:='Сортировка проведена';
  ClientSocket.SendBuf(a,sizeof(a));
  Label3.Caption:='Данные отправлены';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
TCPServer1.LocalHost:=edit1.Text;
TCPServer1.LocalPort:=edit2.Text;
TCPServer1.Active:=true;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
TCPServer1.Active:=false;
  Label1.Caption:='';
  Label2.Caption:='';
  Label3.Caption:='';
end;
 
end.

Решение задачи: «Отсортировать главную диагональ массива по убыванию методом «пузырька»»

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

program test;
 
type
  TMatrix = array [1..4, 1..5] of integer;
 
  { Сортировка "пузырьком" }
  procedure BubbleSort(var A: TMatrix; n, m: integer);
  var
    i, j, min: integer;
    x: integer;
  begin
    if n < m then
      min := n
    else
      min := m;
    for i := min downto 2 do
      for j := 2 to i do
        if A[j, j] > A[j - 1, j - 1] then
        begin
          x := A[j, j];
          A[j, j] := A[j - 1, j - 1];
          A[j - 1, j - 1] := x;
        end;
  end;
 
var
  a: TMatrix;
  i, j: integer;
  n, m: integer;
begin
  randomize;
  n := 4;
  m := 5;
  for i := 1 to n do
    for j := 1 to m do
      a[i, j] := random(100);
  for i := 1 to n do
  begin
    for j := 1 to m do
      Write(a[i, j]: 4);
    writeln;
  end;
  BubbleSort(a, n, m);
  writeln;
  for i := 1 to n do
  begin
    for j := 1 to m do
      Write(a[i, j]: 4);
    writeln;
  end;
end.

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

Создается тип данных TMatrix, который представляет собой массив целых чисел размером 4x5.
Определяется процедура BubbleSort, которая реализует алгоритм сортировки пузырьком.
В основной программе создается переменная a типа TMatrix и инициализируется случайными числами от 0 до 99.
Выводится содержимое массива a в консоль.
Вызывается процедура BubbleSort с аргументами n=4, m=5 и переменная a.
После вызова процедуры BubbleSort выводится снова содержимое массива a в консоль.