с клавиатуры вводится предложение, в котором слова разделены пробелами. определите, сколько слов в этом предложении начинается на букву "а".

var  n,k,i: integer;  s:string;beginwrite('Введите фразу: ');readln(s);k:=length(s)-1;if s[1]='а' then n:=1;for i := 1 to k do      if (s[i]=' ') and (s[i+1]='а') then n:=n+1;writeln('Число слов на а(рус.): ',n)end.