я новичек,нужна помощб в решении задачи очень

[Shhechka]

задача простая,но мне она не по силам...
если не сдам будет завал
Во всех словах, начинающихся с f, заменить f на сочетание ph.

[Snoopy]

Готов помочь!Пишите обсудим!
ICQ: 437528958

[dr.Jekill]

[syntax='pascal']
var s:String;
i:byte;
begin
write('Vvedite stroku: ');
readln(s);
i:=0;
while i<=Length(s) do
begin
inc(i);
if (i=1) or (s[i-1]=' ') then
if UpCase(s)='F' then
begin
delete(s,i,1);
insert('ph',s,i);
end;
end;
writeln(s);
readln;
end.
[/syntax]

Shhechka, НАЗВАНИЕ ТЕМЫ ДОЛЖНО ОТРАЖАТЬ СУТЬ ВОПРОСА!
В следующий раз удалю.