Дано предложение-строка. подсчитать количество слов, начинающихся с буквы 'а' написать программу на паскале

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
  var s:=ReadlnString('Введите текст').ToWords;
  Writeln('Кол-во равно ',s.Where(x->x[1]='а').Count)
end.

Тестовое решение:
Введите текст Большой арбуз оказался зеленым, а маленький - красным
Кол-во равно 2

var c,a,n,i:longint;

begin

read(n);

read(a);

c:=a;

for i:=2 to n do

begin

read(a);

c:=c+a;

end;

write(c);

end.