Дан двухмерный массив размером n x n. Составить программу которая меняет местами все элементы, симметрично побочной диагонали — Pascal(Паскаль)

uses crt;
var
a:array[1..10,1..10]of integer;
i,j,n:integer;
p:integer;
begin clrscr;
write('N = ');
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=random(10);
end;
writeln;
for i:=1 to n do
begin
for j:=1 to n do
begin
write(a[i,j]:3);
end;
writeln
end;
for i:=1 to n do
for j:=1 to n do
if(i+j-1<n)then
begin
p:=a[i,j];
a[i,j]:=a[n-j+1,n-i+1];
a[n-j+1,n-i+1]:=p;
end;
writeln('Полученная матрица*: ');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
readkey;
end.