Определить, какая буква: "о" или "а" входит в него чаще и насколько - Pascal ABC

var
  s: string;
  i, counta, counto: integer;
 
begin
  counta := 0;
  counto := 0;
  write('Введите строку: ');
  readln(s);
  for i := 1 to length(s) do
  begin
    if s[i] = 'a' then 
      inc(counta);
    if s[i] = 'o' then 
      inc(counto);      
  end;
  if counta > counto then 
    writeln('Буква "а" чаще на ', counta - counto)
  else 
  if counto > counta then 
    writeln('Буква "o" чаще на ', counto - counta)
  else
    writeln('Одинаково.');
end.