Sur le code ci dessus l'expression '' se répete meme si le programme vient a sa fin et donne le resultat correcte! svp, comment éliminer cela?

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
16
17
18
PROGRAM jeu_bis (input, output);
VAR
  choix, rep, nb : integer;
BEGIN
  nb := 0;
  choix := random(11);
  repeat
    nb := nb + 1;
    writeln('Choix ndeg. ',nb,' ? ');
    readln(rep);
    BEGIN
    IF rep > choix THEN writeln ('donne un nombre plus petit');
    IF rep < choix THEN writeln ('donne un nombre plus grand'); {la question concerne cette ligne}
    END;
  until rep = choix;
  writeln('Trouvé en ',nb,' coups');
READLN;READLN;
END.
L'exercice était de faire un jeu qui demande de trouver le nombre entre 0 et 10 choisi par l'ordinateur (en comptant les coups) et en aidant le joueur (en précisant si c'est plus ou c'est moins).