Помогите, пожалуйста, составить программку, определяющую, какая из букв "Е" либо "О"

Предложение вводится строкой?

Да, без помощи других.

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var s:=ReadlnString.ToUpper; // к верхнему регистру
  var (kO,kE):=(0,0); // счетчики
  for var i:=1 to s.Length do
    case s[i] of
    'О':ko+=1;
    'Е':kE+=1
    end;
  if kOgt;kE then Writeln('Буква "О" встречается почаще')
  else if kOlt;kE then Writeln('Буковка "Е" встречается чаще')
  else Writeln('Буковкы "О" и "Е" встречаются однообразное число раз')
end.

Пример
Если бы Ольга возжелала, она бы обучалась превосходнее Елены
Буковка "Е" встречается почаще

Var i,ke,ko:integer;
s:string;
begin
ko:=0;
ke:=0;
readln(s);
for i:=1 to length(s) do begin
if (s[i]='Е') or (s[i]='е') then ke:=ke+1;
if (s[i]='О') or (s[i]='о') then ko:=ko+1;
end;
if kogt;ke then writeln('К встречается чаще') else writeln('О встречается почаще');
end.