матрица

[евгения,]

доброе время суток.
подскажите в чем ошибка.
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.

[Jeni]

Что-то непонятны строки
B:=([(i+n) mod 2*n]),[(j+n)mod 2*n]=A[i,j];
write (B[i,j]);

В первой вообще неясно что написано, а во второй переменная B типа Real используется как массив.

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

Извини проверить не на чем, но что-то типа того:
Program matritza;
const
n=4;
var
i,j:integer;
a:array[1..2*n,1..2*n] of integer;
p:integer;
begin
//ввод
for i:=1 to 2*n do
begin
for j:=1 to 2*n do
begin
read(a[i,j]);
write(' ');
end;
writeln;
end;
// изменения блоков
for i:=1 to n do
for j:=i to n do
begin
// блок 1
p:=a[j,i];
a[j,i]:=a[i,j];
a[i,j]:=p;
//блок 2
p:=a[j+n,i];
a[j+n,i]:=a[i+n,j];
a[i+n,j]:=p;
//блок 3
p:=a[j,i+n];
a[j,i+n]:=a[i,j+n];
a[i,j+n]:=p;
//блок 4
p:=a[j+n,i+n];
a[j+n,i+n]:=a[i+n,j+n];
a[i+n,j+n]:=p;
end;
//вывод
for i:=1 to 2*n do
begin
for j:=1 to 2*n do
write(a[i,j],' ');
writeln;
end;
end.

[евгения,]

спасибо за помощь