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

var
s:string;
i,o,a:integer;
begin
o:=0;a:=0
ReadLn(s);
For i:=1 to Length(s) do
begin
if s[ i ]='o' then inc(o);
if s[ i ]='a' then inc(a);
end;
WriteLn('Bykva a='+a );
WriteLn('Bykva o='+o );
end.