Транспонировать матрицу

var n,i,j,p,k,x:integer;
    a:array[1..50,1..50] of integer;
begin
write('n=');readln(n);
writeln('Исходная матрица:');
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;
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('Поворот на 90 градусов:');
for i:=1 to n do
  begin
    for j:=1 to n do
    write(a[i,j]:4);
    writeln;
  end;
end.

var n,i,j,p,k:integer;
    a:array[1..50,1..50] of integer;
begin
write('n=');readln(n);
writeln('Исходная матрица:');
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;
  writeln('Введите номер строки и столбца');
 readln(p,k);
 writeln('Новая матрица:');
 for i:=1 to n
 do begin
 swap(A[p,i],A[i,k]);
 end;
 for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        write(a[i,j]:4);
      end;
  writeln;
  end;
end.