Удалить лишние пробелы между словами, оставив по одному (программа Паскаль)

USES Crt;
VAR
  S:STRING[255];  I,K: INTEGER;
BEGIN
  ClrScr;
  Write('Введите текст   ');  ReadLn(S);
  I:=1;
  While(I<=Length(s)) DO Begin
     IF Copy(S,I,2)='  ' THEN Begin  
                                                 Delete (S,I,1);
                                                 I:=I-1;   
                                               End;
     I:=I+1;
  End;
  Write(S);
END.