Поменять местами элементы, находящиеся над главной и побочной диагональю

uses crt;
var a:array[1..20,1..20] of integer;
    n,i,j,x:integer;
begin
clrscr;
write('Razmernoct matricy n=');
readln(n);
writeln('Ishodnaya matrica:');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=i;
        write(a[i,j]:4);
      end;
    writeln;
  end;
for i:=1 to n div 2 do
for j:=1 to n do
if (j>i)and(j<n-i+1) then
   begin
    x:=a[i,j];
    a[i,j]:=a[n-i+1,j];
    a[n-i+1,j]:=x;
   end;
writeln('Rezultat:');
for i:=1 to n do
  begin
    for j:=1 to n do
    write(a[i,j]:4);
    writeln;
  end;
readln
end.

program ABC;
 
const Nmax=10;
var A:array[1..Nmax,1..Nmax] of integer;
   n,i,j,x:integer;
begin
cls;
writeLn('‚ввести N');
readLn(N);
 
for i:=1 to N do
for j:=1 to N do
   begin
     write('A[',i,',',j,']=');
     readLn(A[i,j]);
   end;
cls;
writeln('Ishodnyj massiv:');
for i:=1 to N do
   begin
    for j:=1 to N do
    write(A[i,j]:5);
    writeln;
   end;
for i:=1 to  trunc (N/2) do
for j:=1 to n do
if (j>i)and(j<n-i+1) then
   begin
    x:=a[i,j];
    a[i,j]:=a[n-i+1,j];
    a[n-i+1,j]:=x;
   end;
writeln('Rezultat:');
for i:=1 to n do
  begin
    for j:=1 to n do
    write(a[i,j]:4);
    writeln;
  end;
readln
end.