Задача по строкам

[s.talke.r]

В заданном тексте каждую запятую прижать к предыдущему слову и отделить от следующей пробелом.

[fbus]

не вижу никаких проблем. в чем загвоздка?

[s.talke.r]

не знаю, как реализовать программу(

[Stilet]

var s:string;i:integer;
begin
s:='what , do yu are   ,do';
i:=1;
while (i<length(s)) do begin
 while (i<length(s))and(s[i]<>',') do inc(i);
 while s[i-1]=' ' do begin delete(s,i-1,1); dec(i);end;
 while copy(s,i+1,2)=' ' do  delete(s,i+1,1);
 insert(' ',s,i+1);
 inc(i);
end;
write(s);readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Сойдет?
Пояснить ее сам сможешь?

[s.talke.r]

да, смогу!))) работает!!! фууу, смогу пояснить, спасибо огромное!!!!! а то боялся что уже будет не зачет!!! Спасибо!!!!!!!!