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

program z;
const n=5;
var i,j:byte;
a:array [1..n,1..n] of integer;
begin
 
     writeln('Ñëó÷àéíàÿ ìàòðèöà');
     for i:=1 to n do
         begin
              for j:=1 to n do
                  begin
                       a[i,j]:=random(20);
                       write(a[i,j],' ');
                  end;
              writeln;
         end;
     for i:=1 to n do
         for j:=1 to n do
             a[i,j]:=a[j,n-i+1];
     writeln('Ðåçóëüòàò');
     for i:=1 to n do
         begin
              for j:=1 to n do
                  write(a[i,j],' ');
              writeln;
         end;
     readln;
end.

program z;
uses crt;
const n=5;
var i,j,p:byte;
    x:integer;
    a:array [1..n,1..n] of integer;
begin
randomize;
writeln('Случайная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
   end;
  writeln;
 end;
p:=n div 2;
for i:=1 to p do
for j:=i to n-i do
 begin
  x:=a[i,j];
  a[i,j]:=a[j,n-i+1];
  a[j,n-i+1]:=a[n-i+1,n-j+1];
  a[n-i+1,n-j+1] := a[n-j+1,i];
  a[n-j+1,i] := x;
 end;
writeln('Результат');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
end.

for i:=1 to n div 2 do
for j:=1 to n do
 begin
  x:=a[i,j];
  a[i,j]:=a[n-i+1,n-j+1];
  a[n-i+1,n-j+1]:=x;
 end;
//если матрица нечетная, переставим элементы  средней строки
if odd(n) then
for i:=1 to n div 2 do
 begin
  x:=a[n div 2+1,i];
  a[n div 2+1,i]:=a[n div 2+1,n-i+1];
  a[n div 2+1,n-i+1]:=x;
 end;