Вводится текст из слов, между которыми пробел, и отдельное слово. слова текста, содержащие первую или последнюю букву введенного слова, заменить введенным словом

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Введите строку слов:');
  var w:=ReadlnString('Введите слово для замены:');
  var (fc,lc):=(w.First,w.Last);
  s:=s.ToWords.Select(v->(Pos(fc,v)>0) or (Pos(lc,v)>0)?w:v)
      .JoinIntoString;
  Writeln(s)
end.

Пример
Введите строку слов: Наша Таня громко плачет уронила в речку мячик
Введите слово для замены: удалено
Наша Таня удалено плачет удалено в удалено мячик