Поворот матрицы на 90 гладусов и кое-что еще...

[Vlad89]

Всем Привет, помогите пожалуйста решить задачу!

Вот условие:
Можно ли путём поворота элементов матрицы А по часовой стрелке на 90 градусов получить совмещение матриц А и В порядка N. Вывести на экран результаты соответствующих преобразований матрицы.

я вот на 90 градусов её поворачиваю, а дальше не знаю как
И почему то матрицу больше чем 3х3 не правильно делает


Вот код:

uses crt;
type mas=array [1..50,1..50] of integer;
var p,k,x,j,i,n:integer;
a:mas;
begin
clrscr;
write('Введите размер массива: ');
readln(n);
for i:=1 to n do begin
for j:=1 to n do
begin
write('Введите a[' ,i,',',j, ']:');
readln(a[i,j]);
end;end;
writeln('Исходная маторица');
for i:=1 to n do begin
for j:=1 to n do
begin
write(a[i,j],' ');

end;
writeln;
end;

p:=n div 2;{разбиван\ем матрицу на 4 части}
for i:=1 to p do
for k:=1 to n-i do{меняем элементы по кругу из одной четверти в другую}
begin
x:=a[i,k];
a[i,k]:=a[n-k+1,i];
a[n-k+1,i]:=a[n-i+1,n-k+1];
a[n-i+1,n-k+1]:=a[k,n-i+1];
a[k,n-i+1]:=x;
end;

writeln('Поворот на 90 градусов: ');
for i:=1 to n do begin
begin
for j:=1 to n do
write(a[i,j]:4);

end;
writeln;
end;
readln;
end.