Developing.ru

доброе время суток.
подскажите в чем ошибка.
1) Дана действительная квадратная матрица порядка 2n. Получить новую матриц, переставляя её блоки размера n*n. (по диагонали)

Program MATRISA;
const n=4;
var i,j: integer;
B :real;
A:ARRAY [1..n, 1..n] of integer;
Begin
for i:=1 to n do
for i:=1 to n do Begin
write ('A(',i,', ',j,')=');
read (A[i,j]);
end;
writeln('matrica A');
for i:=0 to 2*n-1 do
for j:=0 to 2*n-1 do
B:=([(i+n) mod 2*n]),[(j+n)mod 2*n]=A[i,j];
write (B[i,j]);
writeln;
end;
end.

Бред какой-то написан
чё-нить в этом роде умелось в виду - но не компилел я -синтаксические ошибки сам поправь.

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.