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

Var
  n,k,i: integer;
  s:string;
begin
write(Введите фразу: );
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.