Даны натуральное число 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[i]='a')and(s[i+1]='b')and(s[i+2]='c') then k:=k+1;          writeln('строка abc входит в данную строку ',k,' раз');

        readkey;  end.