Повернуть матрицу на 90 градусов по часовой стрелке

uses crt;
var n,i,j:integer;a,b:array[1..50,1..50] of integer;
begin
clrscr;
write('n=');readln(n);
writeln('Ischodnaia matritsha:');
randomize;
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=random(15)-4;{интервал [-4,10]}
        write(a[i,j]:4);
      end;
  writeln;
  end;
Writeln('Povorot na 90 grad:');
for i:=1 to n do
for j:=1 to n do
b[i,j]:=a[n-j+1,i];{поворот}
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        write(b[i,j]:3);
      end;
  writeln;
  end;
readln;
end.

uses crt;
var n,i,j,p,k,x:integer;
    a:array[1..50,1..50] of integer;
begin
clrscr;
write('n=');readln(n);
writeln('Ischodnaia matritsha:');
randomize;
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=random(15)-4;
        write(a[i,j]:4);
      end;
  writeln;
  end;
p := n div 2; {разбиваем матрицу на 4 части}
for i:=1 to p do
for k:=i 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('Povorot na 90 grad:');
for i:=1 to n do
  begin
    for j:=1 to n do
    write(a[i,j]:4);
    writeln;
  end;
readln
end.

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.