Строка

[Евочка=)]

Помогите пожалуйста программу написать((а то не получается!
Дана строка символов до точки.Группы символов в ней между группами пробелов читаются словами.Заменить в словах все предыдущие вхождения последней буквы на пробел!

[Hacker19_90]

А что именно не получается?
Покажите наработки, и МЫ ПОМОЖЕМ!

[Евочка=)]

Var S:String
     K,L:integer;
Begin
     Writeln("Вв стр с точкой");
     Readln(S);
     L:=Pos('.',S);
     Delete(S,i,1);
     S:=S+'-';
     K:=0;
Repeat
     i:=pos('a,'s);  
     if i<>0 then k:=k+1;
     Delete(S,1,i);
     Until i=0;
For K:=1 to i-1 do
      if d[k]=s[i-1] then s[k]:='-';
For k:=1 to i do
      Write(s[k]);
Delete(s,1,i);

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Hacker19_90]

Ну вот что я с потолка написал!!!
Проверяйте!

pos1 := 1;
for i := 1 to length(s) do
begin
     if (s[i] = ' ')  then
     begin
         pos2 := i;
         for j := pos1 to (pos2 - 2) do
         begin
             if s[j] = s[pos2-1] then s[j] := ' ';
         end
    end;
    if (s[i] = length(s))  then
    begin
         pos2 := i;
         for j := pos1 to (pos2 - 1) do
         begin
             if s[j] = s[pos2] then s[j] := ' ';
         end
    end;
    pos1 := pos2;{ЗАБЫЛ}
end;

[Евочка=)]

Пасибо большое!!!Результат позже озвучу=)