Дана строка. Определить, сколько раз входит в нее группа букв abc — Pascal(Паскаль)

uses crt;
var
stroka:string;
i,k:integer;
begin
clrscr;
write('Stroka='); readln (stroka);
k:=0;
for i:=1 to length(stroka) do
 begin
   if i+2<=length(stroka) then
    begin
    if (stroka[i]='a') and (stroka[i+1]='b') and (stroka[i+2]='c') then k:=k+1;
    end;
 end;
writeln('gruppa bukv abc vhodit ',k,' raz');
readln;
end.