С клавиатуры вводится строка. Подсчитать Как узнать сколько раз в нее входит подстрока abc. 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]='a' then
       if S[i+1]='b' then
          if S[i+2]='c' then
             k:=k+1;
WriteLn('Искомое количество: ',k);
End.