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

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

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.