ПОМОГИТЕ ОЧЕНЬ НУЖНА ПОМОЩ Поменять местами элементы, расположенные симметрично относительно побочной диагонали

const
    mx = 100;
var
    a: array [1..mx, 1..mx] of integer;
    i, j, n, t: integer;
begin
    randomize;
    write('n? ');
    readln(n);
    for i := 1 to n do begin
        for j := 1 to n do begin
            a[i, j] := random(100);
            write(a[i, j]:3);
        end;
        writeln;
    end;
    writeln;
    for i := 1 to n - 1 do
        for j := 1 to n - i do begin
            t := a[i, j];
            a[i, j] := a[n - j + 1, n - i + 1];
            a[n - j + 1, n - i + 1] := t;
        end;
    for i := 1 to n do begin
        for j := 1 to n do write(a[i, j]:3);
        writeln;
    end;
end.

3Ы:
> ПОМОГИТЕ ОЧЕНЬ НУЖНА
Ты зачем регистр повышаешь? Никого не волнует, что тебе нужно.
Где твоя попытка что-либо сделать?