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

Программа считает слова, которые начинаются с "а" и "А".

program letter_a;

var s: string;

k: integer;

begin

writeln ('Введите несколько слов через пробел.');

readln (s);

k: = 0;

for i:integer: = 1 to length (s) do

begin

//Если буква а в начале предложения

if (i = 1) and ((s[1] = 'а') or (s[1] = 'А')) then k: = k + 1;

//Если с буквы а начинается слово, и это слово не первое в предложении

if (i > 1) and ((s[i - 1] + s[i] = ' а') or (s[i - 1] + s[i] = ' А')) then k: = k + 1;

end;

writeln ();

writeln ('Количество слов, начинающихся с буквы "а" или "А": ', k)

end.