Листинг программы

program z59;

{Дано предл. t заменить в нем слово 'потоп' словом 'потопкот'}

uses crt;

var t,a:string;i:integer;

 begin

  clrscr;

   write('введите текст t=');readln(t);

  for i:=1 to length(t) do

   begin

    a:=copy(t,i,i+4);{кооп. буквы с i по i+4}

     if a='потоп'

      then insert('кот',t,i+5);{вставка'кот'в тек.t с i+5 поз.}

   end;

   write('ОТВЕТ: ',t);

  readln;

 end.