Задача на строки

[Анатолий147711]

Доброе время суток. Помогите пожалуйста решить.
Дан текстовый файл, содержащий строковые величины S. Преобразовать каждую из них, не привлекая других литерных величин, по следующему правилу: в каждом слове заменить всякое повторное последующее вхождение первой буквы этого слова на символ "_"(подчёркивания). Например, слово "мама" преобразуется в слово "ма_а".

[Aleksandr H.]

Ты ведь вчера писал что эта задача не проблема для тебя.

[Анатолий147711]

А оказалось, что проблема...

[newerow1989]

Повторяю http://programmersforum.ru/showthread.php?t=298536:

var s:string;
    i:integer;
    p:set of char;
begin
   Write('s = ');Readln(s);
   p:=[];
   For i:=1 to Length(s) do
      If s[i]=' ' then
         p:=[] else
         If s[i] in p then
            s[i]:='_' else
            p:=p+[s[i]];
   Writeln(s);
   Readln;
end.