Помогите пожалуйста исправить задачу на строки, Паскаль

[Lucy]

Помогите пожалуйста исправить задачу на строки, Паскаль

Помогите пожалуйста решить задачу: в каждом слове строки удалить символы, совпадающие с первым символом слова.
Я написала программу, но она не работает: в первом слове удаляет символы, совпадающие с первым, а дальше удаляет символы, совпадающие с первым символом второго слова(даже если слов больше чем 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<>' ' then
begin
if s=c then delete(s,i,1);
end
else
begin
c:=s[i+1];
i:=i+2;
while s<>' ' do
begin
if s=c then delete(s,i,1);
i:=i+1;
end;
end;
write(s);
end.

 

[Vladimir_S]

Помогите пожалуйста решить задачу: в каждом слове строки удалить символы, совпадающие с первым символом слова. Я написала программу, но она не работает: в первом слове удаляет символы, совпадающие с первым, а дальше удаляет символы, совпадающие с первым символом второго слова(даже если слов больше чем 2) и если ввести подряд несколько совпадающих символов, то удаляется только половина. Программа:

Чего-то Вы там явно лишнего накрутили. Я бы решил так (проверено):

var
 s:string;
 c:char;
 i:integer;
begin
 writeln('Enter the string:');
 readln(s);
 while s[1]=' ' do
  delete(s,1,1);
 i:=0;
 Repeat
  inc(i);
  c:=s[i];
  repeat
   inc(i);
   if s[i]=c then
    begin
     delete(s,i,1);
     dec(i);
    end;
  until (s[i]=' ') or (i=length(s));
 Until i=length(s);
 writeln(s);
 readln
end.

 

[Lucy]

Спасибо большое, всё работает!