Склавиатуры вводится строка. заменить в ней слово 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.