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

var c,a,n,i:longint;beginread(n);read(a);c:=a;for i:=2 to n dobeginread(a);c:=c+a;end;write(c);end.    

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