begin
ReadlnString.Count(c -> c = 'а').Println
end.
Пример приведен на скрине.
по идее 280 кб или 280 000 байт