bonjour, est-ce que ce code est correct?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function transposee (var nbLig,nbCol:integer;tab:tableau): tableau;  //calcul de la transposée
var rechange: tableau;
    i,j,echange: integer;
 
begin
 
  for i:=1 to nbCol do               
    for j:=1 to nbLig do
         rechange[i,j]:=tab[j,i];
 
  echange:=nbLig;
  nbLig:=nbCol;
  nbCol:=echange;
  transposee:=rechange;
end;
merci de votre réponse