В строке удалить все лишние пробелы. задача в паскале

[Dean]

добрый вечер, программисты!
очень нужна ваша помощь в решении задачки:
В строке, введённой с клавиатуры, удалите все лишние пробелы.
не могли бы вы решить это? был бы вам очень благодарен!

[Pein95]

а наработки есь?

[Dean]

нет, к сожалению, ничего нет

[Pein95]

у вас есть 2 варианта: использовать поиск по форуму или предложыть вознагрождение

[Dean]

ребят, помогите, пожалуйста. очень уж надо.

[New man]

program stroka;
var i:integer;
   s:string;
begin
   readln(s);
   for i:= 1 to length(s)do 
     if s[i]=' ' then 
       while s[i+1]=' ' do
          delete(s,i+1,1);
    writeln(s);
     readln;
end.

[Dean]

огромное спасибо!

[Grag]

New man, сдается мне, что решение неверное...
тут нужно в обратном направлении цикл организовывать...

[New man]

program stroka;
var i:integer;
   s:string;
begin
   readln(s);
   for i:= length(s) downto 2 do 
     if s[i] in [' ', ',','.',';',':','(',')'] then 
       while s[i-1]=' ' do
          delete(s,i-1,1);
    writeln(s);
     readln;
end.