Составьте программу контекстной замены одного слова на другое

[4ertovo4ka]

Создайте текстовый файл р. Составьте программу контекстной замены одного слова на другое.

[Stilet]

Замену можно сделать так:

var sFrom,sTo,s:String;i:integer;
...
i:=pos(sFrom,s);
if i<>0 then begin delete(s,i,Length(sFrom)); insert(sTo,s,i); end;

Где s - считанная из файла строка.