Составьте программу, определяющую количество букв "о" и "а" в строке s. На языке Паскаль ​

program z1;

var s:string;

i,ko,ka: integer;

begin

write ('Введите строку: ');

readln (s);

for  i:=1 to length(s) do

begin

if s[i]='о' then ko:=ko+1;

if s[i]='а' then ka:=ka+1;

end;

writeln ('Количество букв "о" ',ko);

writeln ('Количество букв "а" ',ka);

end.

Программа считает только русские строчные буквы "о" и "а"