Помогите пожалуйста решить задачу: в каждом слове строки удалить символы, совпадающие с первым символом слова.
Я написала программу, но она не работает: в первом слове удаляет символы, совпадающие с первым, а дальше удаляет символы, совпадающие с первым символом второго слова(даже если слов больше чем 2) и если ввести подряд несколько совпадающих символов, то удаляется только половина.
Программа:
uses crt;
var s:string;
c:char;
i:integer;
begin
readln(s);
while s[1]=' ' do
delete(s,1,1);
c:=s[1];
for i:=2 to length(s) do
if s[i]<>' ' then
begin
if s[i]=c then delete(s,i,1);
end
else
begin
c:=s[i+1];
i:=i+2;
while s[i]<>' ' do
begin
if s[i]=c then delete(s,i,1);
i:=i+1;
end;
end;
write(s);
end.