Function Distinct

Function distinct (t:tab;i:Integer): Boolean;  {i:compteur du tableau/t:tableau qu'on va travailler dessus}
Var
  j: Integer; {j:les valeurs se trouvant dans le tableau avant la valeur i}
  test: Boolean; {test:Condition}
Begin
  test := True;  {test:ici test=true pour éviter de comparer la valeur si i=1 (ma3ana bech nkarnouha hiya wahadha fel tab)}
  j := 1 ;
  While test And (j<i) Do
    Begin
      test := t[i]<>t[j]; {si t[i]=t[j] alors test va recevoir false et la boucle s'arretera}
      j := j+1;
    End;
  distinct := test;  {résultat final}
End;