Строки, замена каждой буквы Опции

[forMator]

У меня снова возник вопрос!
Дан текст. Слова разделены пробелом. В третьем слове каждую букву заменить на +.
Как сделать чтобы именно в третьем слове заменялись буквы?
И как заменить каждую буквы?
Я могу заменить только определённую букву.
Подскажите пожалуйста!

[forMator]

Вот так я нахожу третье слово. А как заменить все буквы на один символ?

Код

Program stroka_1;
Var s:string;
i,p:integer;
begin
writeln('vvedi tekct:');
readln(s);
s:=s+' ';
p:=0;i:=1;
while (i<=length(s)) and (p<2) do
begin
if s[i]=' ' then p:=p+1;
i:=i+1;
end;
if p=2 then begin
while (i<=length(s)) and (s[i]<>' ') do begin
if ??????

else writeln('в тексте меньше 3-х слов');
readln;
end.

p-количесиво пробелов в тексте. Подскажите пожалуйста!