матрица подскажите

[евгения,]

Дана действительная квадратная матрица порядка 2n. Получить новую матриц, переставляя её блоки размера n*n по диагонали слева на право. пример
1-2 должно получиться 4-2
3-4 3-1
у меня в программе меняет все блоки . как исправить ошибку.
Program MATRISA;
const n=4;
var
i,j : integer;
A, B : ARRAY [1..2*n, 1..2*n] of integer;
Begin
writeln('matrica A');
for i:=1 to 2*n do
for i:=1 to 2*n do Begin
write ('A(',i,', ',j,')=');
read (A[i,j]);
end;

for i:=1 to 2*n do
for j:=1 to 2*n do
B[(i+n - 1) mod (2*n) + 1, (j+n - 1) mod (2*n) + 1] := A[i,j];

writeln('matrica B');
for i:=1 to 2*n do begin
for j:=1 to 2*n do
write(B[i,j]);
writeln;
end;
end.

[Трофимов Александр]

Попробуй заменить блок :
for i:=1 to 2*n do
for j:=1 to 2*n do
B[(i+n - 1) mod (2*n) + 1, (j+n - 1) mod (2*n) + 1] := A[i,j];
на:
for i:=1 to n do
for j:=1 to n do
begin
B[n+i,n+j]:=A[i,j];//в 4-й записываем 1
B[i,j]:=A[n+i,n+j];//в 1-й записываем 4
B[n+i,j]:=A[n+i,j];//в 3-й записываем 3
B[i,n+j]:=A[i,n+j];//в 2-й записываем 2-й
end;