Program Espace_superflus;
Var ch : String;
i, p : Integer ;
Begin
Writeln ('Donner une chaîne');
Readln (ch);
Repeat
P := POS (' ', ch);
{position de 2 espaces dans ch}
If p<>0 Then DELETE (ch, p, 1);
Until p=0;
If ch[1]=' ' Then DELETE (ch, 1, 1);
If ch[Length(ch)]=' ' Then DELETE (ch, Length (ch), 1);
Writeln ('La chaîne devient : ', ch);
End.