const n=8;
var 
a:array[1..n,1..n] of integer;
i,j,k,c:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
  a[i,j]:=random(50);
  write(a[i,j]:4);
  end;
  writeln;
 end;
k:=n div 2;
for i:=1 to k do
 for j:=1 to k do
 begin
 c:=a[i,j]; a[i,j]:=a[k+i,k+j]; a[k+i,k+j]:=c;
 end;
writeln('Полученный массив:');
for i:=1 to n do
 begin
 for j:=1 to n do write(a[i,j]:4);
 writeln;
 end;
end.

Пример:
Исходный массив:
  40  41  47  21  20  38  35  48
  21  23  18  24  35  16  32   1
  30  20   6  21  39   9  40   4
  26  41  38   4  17   0   0   3
  27   3  33  23  27  38  34  43
  11  21  27   9  32  26  15  44
  19  25  18  43  49   4  14  30
   1  42  44  28  49  30  31  20
Полученный массив:
  27  38  34  43  20  38  35  48
  32  26  15  44  35  16  32   1
  49   4  14  30  39   9  40   4
  49  30  31  20  17   0   0   3
  27   3  33  23  40  41  47  21
  11  21  27   9  21  23  18  24
  19  25  18  43  30  20   6  21
   1  42  44  28  26  41  38   4