{* Задача 162 *}

Unit ZADACH162;
Interface
Implementation
Begin
 writeln('Дано предл. t заменить в нем слово 'потоп' словом 'потопкот'');
End.

Program pas0;

Uses zadach162.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Необходимые переменные *}
  t : String;
  a : String;
  i : integer;
Begin
  clrscr; {* Очистка экрана *}
  write('введите текст t=');
  readln(t);
  For i := 1 To length(t) Do {* Цикл для i => [1 .. length(t)] *}
  Begin
    a := copy(t, i, i + 4); {кооп. буквы с i по i+4}
    If a = 'потоп' Then
      insert('кот', t, i + 5); {вставка'кот'в тек.t с i+5 поз.}
  End;
  write('ОТВЕТ: ', t);
  readln; {* Ждем нажатия Enter *}
End.