{* Замена слова в строке *}

Unit ZAMENSRT;
Interface
Implementation
Begin
 writeln('Замена слова в строке');
End.

Program pas;

Uses zamensrt.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  s   : String;
  s1  : String;
  s2  : String;
  i   : integer;
  a   : integer;
  b   : integer;
  len : integer;
Begin
  Writeln('Vvedite isxodnuu stroky:');
  Readln(s);
  Writeln('Chto zamenit:');
  Readln(s1);
  Writeln('Chem zamenit:');
  Readln(s2);
  a := Pos(s1, s);
  len := length(s1);
  Delete(s, a, len);
  Insert(s2, s, a);
  Writeln(s);
  readln; {* Приостановка программы. Ожидание Enter *}
End.