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

uses crt;
const n=5;
var a:array[1..2*n,1..2*n]of byte;
    i,j,x:byte;
begin
clrscr;
randomize;
writeln('Исходная матрица');
for i:=1 to 2*n do
 begin
  for j:=1 to 2*n do
   begin
    a[i,j]:=10+random(90);
    write(a[i,j]:3);
   end;
  writeln;
 end;
for i:=1 to n do
for j:=1 to n do
 begin
  x:=a[i,j];
  a[i,j]:=a[n+i,n+j];
  a[n+i,n+j]:=x;
  x:=a[i,n+j];
  a[i,n+j]:=a[n+i,j];
  a[n+i,j]:=x;
 end;
writeln('Перестановка блоков');
for i:=1 to 2*n do
 begin
  for j:=1 to 2*n do
  write(a[i,j]:3);
  writeln;
 end;
readln
end.

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
 
const nmax=10;
n=16;
var a:array[1..100,1..100] of real;
    b:array[1..100,1..100] of real;
    i,j:byte;
    k:integer;
begin
 k:=0;
 writeln('Array:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    k:=k+1;
    a[i,j]:=k;
    write(a[i,j]:5:0);
    b[i,j]:=a[i,j];
   end;
  writeln;
 end;
 
 For  j:=1 to 8 do
 For  i:=1 to 8 do
 begin
   b[i,j]:=a[i,j];
   a[i,j]:=a[i+8,j+8];
   a[i+8,j+8]:=  b[i,j];
 end;
 
 writeln('  ');
 For  j:=1 to 8 do
 For  i:=9 to 16 do
 begin
   b[i,j]:=a[i,j];
   a[i,j]:=a[i-8,j+8];
   a[i-8,j+8]:=  b[i,j];
 end;
 
 
 
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:5:0);
  writeln;
 end;
readln
end.

const n=8;