поменять по часовой стрелке ее блоки размерами 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;