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

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

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;
//Если с буквы а начинается слово, и это слово не 1-ое в предложении
if (i gt; 1) and ((s[i - 1] + s[i] = а) or (s[i - 1] + s[i] = А)) then k:= k + 1;
end;
writeln();
writeln(Количество слов, начинающихся с буковкы "а" либо "А": , k)
end.