Parcours de séquence

Bonjour à tous!

j'ai écrit une fonction qui retourne le nombre d'éléments d'une séquence.

Le code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Program Travail2; uses seqint; function Nb_objets(const s:tseqint):integer; var it:tseqiter;x:integer; begin it:=tseqiter.init(s); result:=0; while not it.aubout do x:=it.valeurcourante; result:=result+1; end; var s:tseqint; begin // Programme Principal s:=Tseqint.Create(Quelconque); writeln('il y a ',Nb_objets(s),' objets'); end.
Mon problème c'est que finalement, la valeur x:=it.valeurcourante n'est jamais utilisée. Cependant, si j'ai besoin de parcourir une séquence, comment faire autrement?

Merci de me lire