Удалить в каждом слове повторяющиеся символы

zvermarkov

Дана строка. Группы символов, разделенные пробелами и не содержащие пробелов внутри себя будем называть словами. Удалить в каждом слове повторяющиеся символы
1 ответ

zvermarkov

Readln(S);
For i:=Length(S) downto 2 do
  If (S[i]<>' ') and (S[i]=S[i-1]) then Delete(S,i,1);
Writeln(S);