Заменить значение каждого элемента каждой строки массива а на значение соответствующего элемента соответствующего столбца массива в ( 1-й элемент 1-й строки массива а на 1-й элемент 1-го столбца массива в, 2-й элемент 1-й строки массива а на 2-й элемент 1-го столбца массива в и т. д. )

Var i,j,n: integer;
    a: array[,] of real;
begin
  write('n = ');  readln(n);
  setlength(a,n+1,n+1);
  randomize;
  writeln('исходная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(-20,20);
      write(a[i,j]:4);
    end;
    writeln;
  end;
//транспонирование матрицы
  for i:=1 to n-1 do
  for j:=i+1 to n do  swap(a[i,j],a[j,i]);
//вывод на экран  
  writeln('транспонированная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do write(a[i,j]:4);
    writeln;
  end;
end.

n = 4
исходная матрица:
  -5  16 -10   5
  -4 -20   6  14
  -2  10  -4  -7
 -16   1  -9  13
транспонированная матрица:
  -5  -4  -2 -16
  16 -20  10   1
 -10   6  -4  -9
   5  14  -7  13