Recherche:

program ex;
uses wincrt;
var
ch,a:string;
x,y,z,k:integer;
begin
repeat
readln(ch);
until ch<>''
a:=ch;

Bonjour !
J'ai essayé de faire ce programme sur Pascal mais ça ne fonctionne pas !
Je doute que le problème est à cause de la boucle while ... do.
Le programme permet de nettoyer une chaîne des...