Поменять местами max элемент диагоналей матрицы с элементом, находящимся на пересечении диагоналей

const
    n = 7;
var
    ar: Array[1..n, 1..n] Of ShortInt;
    i, j, iMax, jMax: 1..n;
    temp: ShortInt;
begin
    Randomize;
    for i := 1 to n do
    begin
        for j := 1 to n do
        begin
            ar[i, j] := Random(51) - 25;
            Write(ar[i, j]:4);
        end;
        WriteLn;
    end;
    iMax := 1; jMax := 1; j := n;
    for i := 1 to n do
    begin
        if (ar[iMax, jMax] < ar[i, i])
        then
        begin
            iMax := i;
            jMax := i;
        end;
        if (ar[iMax, jMax] < ar[i, j])
        then
        begin
            iMax := i;
            jMax := j;
        end;
        Dec(j);
    end;
    WriteLn; WriteLn;
    temp := ar[(n + 1) div 2, (n + 1) div 2];
    ar[(n + 1) div 2, (n + 1) div 2] := ar[iMax, jMax];
    ar[iMax, jMax] := temp;
    for i := 1 to n do
    begin
        for j := 1 to n do
            Write(ar[i, j]:4);
        WriteLn;
    end;
end.