Дан текст на русском языке. Найти количество букв ‘о’ и ‘а’. Найти количество букв ‘о’ и ‘а’.

type
TCntArray=array[char] of integer;
var c:TCntArray;
j:integer;
s:string;
begin
readln(s);
for j:=low(char) to high(char) do c[j]:=0;
for j:=1 to Length(s) do inc(c[s[j]]);
writeln('а', c['а']);
writeln('о', c['о']);
end.