Вводится строка.сколько в строке больших и маленьких латинских букв 'а'? бы скажите как делать я сделаю. всем кто не в паскале

// PascalABC.NET 3.2, сборка 1356 от 04.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('>').ToCharArray;
  Writeln('Найдено латинских "a": ',s.Where(x->x in ['a','A']).Count)
end.

Пример
> Once upon a time in America
Найдено латинских "a": 3