(( дана строковая величина s определите каких букв в ней больше а или о

Var s:string; a,o,i:integer;
begin 
readln(s);
for i:=1 to length(s) do begin
if s[i]='а' or s[i]='a'  then a:=a+1; //для английских и русских букв
if s[i]='о' or s[i]='o'  then o:=o+1;
end;
end.