Recherche:

Hoe,



repeat
nom := lire_nom;
if nom <> '*****' then
begin
traiter
end;

Hoa,

On est dans un cas typique où la boucle à privilégier est repeat ... until :

On passe au moins une fois dans la boucle pour lire le premier nom, et avec un while, ça t'oblige à déporter...