Matrice transposée

{ transposée de la matrice : effectuer une permutation entre tous couple B[i, j] avec B[j, i] avec i<j pour ne pas faire des permutations inutiles}
for i:=1 to n-1 do
begin
for j:=1 to i+1 do
begin
x:=B[i,j];
B[i, j]:=B[j, i] ;
B[j, i]:=x ;
end;
end;