Основы программирования на языке Turbo Pascal. Беляева И.В. - 151 стр.

UptoLike

Составители: 

151
{Поиск позиции первого символа слова W в строке S}
F := Pos(W, S);
{Вычисление длины слова W}
L := Length(W);
{Удаление из строки S слова W}
Delete(S, F, L);
{Вставка вместо удаленного слова W слова Z}
Insert(Z, S, F);
{Вывод строки после замены слова W на слово Z}
writeln(' s= ',S);
end.