С клавиатуры вводится строка. Заменить в ней слово dog на слово cat.
Pascal ABC

Var   S:string;   i,k:integer;Begink:=0;Write('Введите строку: ');ReadLn(S);For i:= 1 to Length(S)-2 do    if S[i]='d' then       if S[i+1]='o' then          if S[i+2]='g' then             Begin             S[i]:='c';             S[i+1]:='a';             S[i+2]:='t';             End;WriteLn('Новая строка: ',S);End.