Подсчитать количество слов, в которых буква "а" входит не менее двух раз. (слова разделены пробелом). (программа Паскаль)

Question

Подсчитать количество слов, в которых буква "а" входит  не менее двух раз. (слова разделены пробелом).

Answer 1

USES Crt;
VAR
  A : STRING [255];  KS, KB, I, N : INTEGER;
BEGIN
  ClrScr;
  WriteLn('Введите текст ');  ReadLn(A);
  A:=A+' ';
  N:=Length(A);
  KB:=0; KS:=0;  I:=1;
  While (I<=N) DO Begin
     While (A[I]<>' ') DO Begin
        IF (A[I]='a') OR (A[I]='A') THEN KB:=KB+1;
        I:=I+1;
     End;
     IF KB>2 THEN KS:=KS+1;
     KB:=0;
     I:=I+1;
  End;
  WriteLn(' Количество слов, в которых буква "а" встречается не менее двух раз =  ',ks)
END.