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

Pascal ABC

Var

S:string;

i, k:integer;

Begin

k:=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.