[icWasya]

Транспонирование надо делать так

Код:

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

а то ты дважды переставляешь элементы массива