Даны натуральное число 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.