У меня вопрос по программе

[bone]

У меня вопрос по программе

Помогите пожалуйста по паскалю
у меня вопрос по программе .
Вот смотрите вводим матрицу
1122
1122
4433
4433
после перемещений она должна стать
3344
3344
2211
2211

ну у меня максимум получался один квадрат правельный)
изначально была другая праграмма просто препод попрасил переделать)
Помогите пожалуйста)

program laba;
var i,j,k,l:integer;
a: array[1..100, 1..100] of integer;
b: array[1..100, 1..100] of integer;
c: array[1..100, 1..100] of integer;
n,y,x:integer;
begin
write('BBedi N=');
readln;
For i:=1 to n do
for j:=1 to n do
begin
write('a[',i,j,']=');
readln(a[i,j]);
end;
writeln('ishodnay');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln();
end;
b:=a;
for i:=1 to n do begin
b[i,i]:=a[n-i+1,n-i+1];
b[n-i+1,n-i+1]:=a[i,i];
end;
for i:=1 to n do begin
b[i,n-i+1]:=a[n-i+1,i];
b[n-i+1,i]:=a[i,n-i+1];
end;
for i:=1 to n do begin
for j:=1 to n do begin
Write(b[i,j] :4);
end;
writeln;
end;

end.

 

[Vladimir_S]

Опишите закон (правило), по которому происходит преобразование матрицы. А то, знаете ли, восстанавливать его из вашей (к тому же неверно работающей) программы и примера и сложно и нет ни малейшего желания.