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

Question

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

Answer 1

USES Crt;
VAR
  A: STRING [240];  KS, N, I: INTEGER;
BEGIN
  ClrScr;
  Write('Введите тест ');  ReadLn(A);
  N:=Length(A);
  IF A[1]=’А’ THEN KS:=1 ELSE KS:=0;
  FOR I:=2 THEN N
     IF  (COPY(A,I,2) =’ а’) OR (COPY(A,I,2)=’ А’ THEN KS:=KS+1;
  WriteLn(‘Количество слов, начинающихся на букву «а» =’,KS);
END.