Переставить блоки в матрице

const n = 3;
      m = 2 * n;
var a: array[0..m, 0..m] of real;
    i, j: integer;
begin
  randomize;
  writeln('Исходная матрица:');
  for i := 1 to m do
    begin
      for j := 1 to m do
        begin
          a[i, j] := 10 - 20 * random;
          write(a[i, j] :6:2)
        end;
      writeln
    end;
  for i := 1 to n do
    for j := 1 to n do
      begin
        a[i, j] := a[i+n, j+n];
        a[i+n, j] := a[i+n, j+n];
        a[i, j+n] := a[i+n, j+n]
      end;
  writeln('Матрица с переставленными блоками:');
  for i := 1 to m do
    begin
      for j := 1 to m do write(a[i, j] :6:2);
      writeln
    end;
  readln
end.

var a:array[1..10,1..10] of integer;
    n,i,j,x:integer;
begin
randomize;
repeat
write('Введите половину размера матрицы от 1 до 5 n=');
readln(n);
until n in [1..5];
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[n+i,n+j];
  a[i,j]:=x;
  a[i+n,j]:=x;
  a[i,n+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;
end.