{* Замена подстроки в строке *}

Unit ZAMENPODST;
Interface
Implementation
Begin
 writeln('s, s_old, s_new – исходная строка, заменяемая подстрока, вставляемая подстрока;
i – номер символа строки, с которого начинается подстрока;
l_old – длина заменяемой подстроки.');
End.

Program pas53498;

Uses zamenpodst.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  s     : String;
  s_old : String;
  s_new : String;
  i     : byte;
  l_old : byte;
Begin
  write('Insert String: ');
  readln(s);
  write('What change? ');
  readln(s_old);
  l_old := length(s_old);
  write('What To replace? ');
  readln(s_new);
  i := pos(s_old, s);
  delete(s, i, l_old);
  insert(s_new, s, i);
  writeln(s);
  readln
End.