Даны натуральное число...

Даны натуральное число n, символы S1...Sn, определить число вхождений группы букв abc. Символьный и строковый тип. Помогите пожалуйста.. оченьпрошу..

 

Program StrokABC; 
uses Crt;
var d,n,i,k:integer;
       s:string;
begin
     clrscr;
      writeln('Введите n:');
       readln(n);
       repeat
           clrscr;
           readln(s);
      until length(s)=n;
      d:= length(s);
      for i:=1 to d do
      if (s='a')and(s[i+1]='b')and(s[i+2]='c') then k:=k+1;
          writeln('строка abc входит в данную строку ',k,' раз');
        readkey;  
end.