Транспонирование без вспомогательной матрицы Опции

[liash-7]

Подскажите,пожалуйста,как транспонировать квадратную матрицу без использования вспомогательной.

[мисс_граффити]

 for i2:=0 to m-1 do
  for j2:=0 to i2 do
  begin
   vsp:=A2[i2,j2];
   A2[i2,j2]:=A2[j2,i2];
   A2[j2,i2]:=vsp;
  end;