Транспонирование матрицы

[Tatum]

Как транспонировать матрицу А[n,n] без использования дополнительного массива???

[rubius2008]

For i:=1 to n do 
  For j:=i+1 to n do begin
     x:=a[i,j];
     a[i,j]:=a[j,i];
     a[j,i]:=x;
  end;