Вводится строка символов. Задача. Опции

[Sum42]

Помогите пожалуйста с задачкой
Задача
Вводится строка символов. Определить число вхождений в нее группы букв вида “abc”.
Мое решение

program PR_3_28;
uses crt;
var
 k,n,m:char;
 x:integer;
begin
 clrscr;
 Write('Введите строку символов в конце поставьте точку!');
 Read(k,n,m);
 While (k<>'.')and(n<>'.')and(m<>'.') do
                                      begin
                                      if (k='a')and(n='b')and(m='c')
                                       then x:=x+1
                                       else if (n='a')and(m='b')and(k='c')
                                             then x:=x+1
                                             else if (m='a')and(k='b')and(n='c')
                                                   then x:=x+1;
                                      read(k,n,m);
                                      end;
 Writeln('Число групп символов abc=',x);
 readkey;
 end.

Вообщем программа работает не совсем правильно определяет только если (abc) попадается через 3 символа, например так (abcfgtabc), а вот такое её не под силу (adabcas)
Только начал учить паскаль. Не пинайте сильно

[volvo]

Не совсем. Все "сдвигается на 1 символ", то, что было в N переходит в K, а то, что было в M - переходит в N. Таким образом тебе необходимо каждый раз считывать только один символ, M. И у тебя каждый раз в KNM будет тройка символов, которая как бы "сдвигается" к концу предложения. Проверяешь ее на abc и всё