матрица Опции

[Mavra]

есть матрица квадратная. размерность 2*n
поменять по часовой стрелке ее блоки размерами n*n
подскажите в чем ошибка

 procedure Smena(var A,B:matrix; n,m:integer);
 var i,j:integer;
 begin
 for i:=1 to n do
 for j:=1 to n do
  B[i,j+n]:=A[i,j];
 for i:=1 to n do
 for j:=n+1 to m do
  B[i+n,j]:=A[i,j];
 for i:=n+1 to m do
 for j:=n+1 to m do
  B[i,j-n]:=A[i,j];
 for i:=n+1 to m do
 for j:=1 to n do
  B[i-n,j]:=A[i,j];
 end;

[Mavra]

спасибо.
значит буду искать ошибку у себя.

Добавлено через 6 мин.
спасибо. Вы помогли найти мне ошибку совсем не там, где я искала.

[Lapp]

спасибо. Вы помогли найти мне ошибку совсем не там, где я искала.

Я рад
успехов тебе, заходи еще