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 : 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
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.