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

[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;