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

[forMator]

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

[klem4]

Дан текст. Слова разделены пробелом. В третьем слове каждую букву заменить на +.

Если в строке не менее 3-х слов и разделяются они _одним_ пробелом.

var
  s: String;
  p: Integer;
begin
  readln(s);
  p := Pos(' ', s) + Pos(' ', Copy(s, Pos(' ', Copy(s, Pos(' ', s), 255)), 255)) + 1;
  while (p <> Length(s)) and (s[p] <> ' ') do begin
    s[p] := '+';
    inc(p);
  end;
  writeln(s);
end.