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

var a:array[1..20,1..20] of integer;
    x:integer;
    n,i,j:byte;
begin
clrscr;
write('n=');readln(n);
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10*i+j;
    if ((j>i)and(j<n-i+1))or((j>n-i+1)and(j<i))then
     begin
      textcolor(12);
      write(a[i,j]:4);
     end
    else
     begin
      textcolor(15);
      write(a[i,j]:4);
     end;
    end;
  writeln;
 end;
for i:=1 to n 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('Перестановка:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if ((j>i)and(j<n-i+1))or((j>n-i+1)and(j<i))then
     begin
      textcolor(12);
      write(a[i,j]:4);
     end
    else
     begin
      textcolor(15);
      write(a[i,j]:4);
     end;
    end;
  writeln;
 end;
readln
end.

uses crt;
var a:array[1..20,1..20]of integer;
var i,j,n:integer;
 
procedure swap(var a,b:integer);
var t:integer;
begin
 t:=a;
 a:=b;
 b:=t;
end;
 
begin
 clrscr;
 randomize;
 write('Размерность матрицы: ');
 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;
 
 for i:=1 to n-1 div 2 + n mod 2 do
 for j:=i+1 to n-i do
 swap(a[i,j],a[n-i+1,j]);
 
 writeln('-----------');
 for i:=1 to n do
 begin
  for j:=1 to n do write(a[i,j]:3);
  writeln;
 end;
 readln;
end.