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

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 ko>ke then writeln('К встречается чаще') else writeln('О встречается чаще');
end.