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.