Составьте программу на языке паскаль для подсчета суммарного числа букв "е" и "о" в строковой величине

Var s:string; j,p:integer;
begin readln(s); p:=0; for j:=1 to length(s) do if(s[j]='e')or(s[j]=o)then inc(p); writeln(p); readln end.

var s:string; j,e,o:integer;
begin
readln(s); e:=0; o:=0;
for j:=1 to length(s) do begin if s[j]='e' then inc(e); if s[j]=o then inc(o);
if o > e then writeln('o'); if o < e writeln('e'); if o=e then writeln('oe'); readln
end.

Счет букв ведется для латинских строчных букв o и e.)