[TP] Problème variable

Bonjour, voilà j'avais un programme à créer sur le quel je vais essayer de me débrouiller tout seul mais voilà, un petit problème survient.

Dans ce programme, je dois introduire une phrase , un caractère.

Et, dans la phrase, supprimer tous les caractères qui correspondent à la phrase écrite.

Je pensais que le problème venait de mon programme.
Vu qu'on ne doit choisir qu'un seul caractère, j'avais choisi char; mais même en string; le problème ne s'arrange pas.

Voilà le source :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

program ascii; uses crt; var phrase:string; caract:char;   begin clrscr; writeln('veuillez introduire le caractere:'); read(caract); if length(caract)>1 then begin writeln('impossible'); end else writeln('veuillez introduire votre phrase:'); read(phrase); writeln('voici votre phrase',phrase);   repeat until keypressed; end.

---

Je vous rassure, ce n'est pas le fameux programme mais même ça, ça ne marche pas...
Problème : une fois introduit le caractère, il passe directement à la réponse sans que j'aie le temp d'ecrire la phrase.
Et si j'inverse, j'ai le même problème.

Merci d'avance.

Bonjour et bienvenue !

Remplace read par readln et ça devrait marcher.
;)

il ne manque pas un begin après le else?