Найти наибольший элемент среди стоящих на главной и побочной диагоналях и поменять его местами с элементом, стоящим на пересечении этих диагоналей

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
const
  //Число строк и столбцов в массиве.
  N = 5;
var
  //Массив.
  Arr : array[1..N, 1..N] of Integer;
  //Индексы массива.
  i, j, i1, j1  : Integer;
  //Индексы, соответствующие максимальному элементу на главной и побочной диагоналях.
  IMax, JMax    : Integer;
  //Переменная для обмена значений в элементах массива.
  NumTmp        : Integer;
  //Строка для распечатки результатов.
  StrTmp        : String;
begin
 
  //Если N - чётное, то прерываем выполнение.
  if not Odd(N) then begin
    Raise Exception.Create('Число строк и столбцов массива чётное! Выполнение прервано.');
  end;
 
  //Очищаем Мемо.
  Memo1.Clear;
 
  //Инициализируем массив.
  //Заполняем массив возрастающими неповторяющимися значениями.
  NumTmp := -(N * N) div 2;
  for i := 1 to N do begin
    for j := 1 to N do begin
      Inc(NumTmp);
      Arr[i, j] := NumTmp;
    end;
  end;
 
  //Инициализируем генератор случайных чисел.
  Randomize;
  //Перемешиваем элементы в массиве.
  for i := 1 to N * N do begin
    i1 := 1 + Random(N); //Случайный индекс из диапазона 1..(0..N-1) = 1..N.
    j1 := 1 + Random(N);
    NumTmp := Arr[1, 1];
    Arr[1, 1] := Arr[i1, j1];
    Arr[i1, j1] := NumTmp;
  end;
 
  //Распечатка исходного массива.
  Memo1.Lines.Add('Исходный массив:');
  for i := 1 to N do begin
    StrTmp := '';
    for j := 1 to N do begin
      if StrTmp <> '' then begin
        StrTmp := StrTmp + Char(9);
      end;
      StrTmp := StrTmp + IntToStr( Arr[i, j] );
    end;
    Memo1.Lines.Add(StrTmp);
  end;
 
  //Решение задачи. Начало.
 
  //Поиск максимума на главной и побочной диагоналях.
  IMax := 1;
  JMax := 1;
  for i := 1 to N do begin
    //Главная диагональ.
    j := i;
    if Arr[i, j] > Arr[IMax, JMax] then begin
      IMax := i;
      JMax := j;
    end;
    //Вторая (побочная) диагональ.
    j := N + 1 - i;
    if Arr[i, j] > Arr[IMax, JMax] then begin
      IMax := i;
      JMax := j;
    end;
  end;
 
  //Меняем местами найденный масимальный элемент с элементом, расположенным
  //на пересечении диагоналей.
  //[i, i] - это координаты элемента, расположенного на пересечении диагоналей
  i := N div 2 + 1;
  NumTmp := Arr[IMax, JMax];
  Arr[IMax, JMax] := Arr[i, i];
  Arr[i, i] := NumTmp;
 
  //Решение задачи. Конец.
 
  //Распечатка результирующего массива.
  Memo1.Lines.Add('Результирующий массив:');
  for i := 1 to N do begin
    StrTmp := '';
    for j := 1 to N do begin
      if StrTmp <> '' then begin
        StrTmp := StrTmp + Char(9);
      end;
      StrTmp := StrTmp + IntToStr( Arr[i, j] );
    end;
    Memo1.Lines.Add(StrTmp);
  end;
 
end;
 
end.