МАТРИЦА В ПАСКАЛЕ

[евгения,]

ДДОБРЫЙ ВЕЧЕР ПОДСКАЖИТЕ
Дана действительная квадратная матрица порядка 2n. Получить новую матриц, переставляя её блоки размера n*n. (ПО ДИАГОНАЛЕ).
Programa HH;
var i,j,m: integer;
A:ARRAY [1...4, 1...4] of integer;
Begin;
for i:=1 to 4 do n;
write ('wwedite i ctroku');
Readln (A[i,j]);
writeln;
end;
ПИШЕТ ЧТО У МЕНЯ ОШИБКА НЕ ПОЙМУ КАКАЯ

[Nemon]

Сообщение от евгения,

Programa HH;

Может program

[А. Долматов]

for i:=1 to 4 do n;
write ('wwedite i ctroku');
Readln (A[i,j]);
writeln;
end;

какая же это строка, когда столбец всегда равен 0. И не может он быть равен 0, как минимум 1.
а строчка в теле цикла

writeln;

Это ведь не текстовый файл.

[mihaild]

for i:=1 to 4 do n;
//n - это что? процедура?)
write ('wwedite i ctroku');
//напишет "wwtdite i ctroku" (без кавычек))
//надо: write('wwedite ',i,' stroku);
Readln (A[i,j]);
//значение j компилятор угадать должен?
writeln;
//ну, вывести пустую строку...
end;
//в конце проги - end с точкой.
Надо:
program proga;
const N=4;
var i,j:integer;
a:array[1..N,1..N] of integer;
begin
for i:= 1 to N do
for j:=1 to N do begin
write('Yacheyka ',i,',',j,':');
readln(a[i,j]);
end;
end;
Это считает массив. А вот что с ним дальше надо сделать - не очень понял. Опишите подробней, по возможности с примерами.
А на досуге почитайте что-нибудь вроде http://mkskent.boom.ru/turbo/turbo.html

[евгения,]

mihaild спасибо
нужно Получить новую матриц, переставляя её блоки размера n*n. (ПО ДИАГОНАЛЕ).
пример
1122 4422
3344 3311