Удаление из строк

[Михаил_444]

Задание звучит так: пользователь вводит строку, программа находит двойные пробелы и удаляет 1 из них.
За помощь буду очень благодарен!

[IT-man]

var s:string;
begin
readln(s);
while  pos('  ',s)<>0 do delete(s,pos('  ',s),1);
writeln(s);
readln;end.