Как можно заменить inc? и pos в данных программах

var s : string;
  i, cnt_e, cnt_o : integer;
begin
   Write('Введите предложение:');
   ReadLn(s);
 
   cnt_e := 0;
   cnt_o := 0;
   for i:=1 to Length(s) do 
      if s[i]='е' then Inc( cnt_e )
      else
        if s[i]='о' then Inc( cnt_o );
  if  cnt_e > cnt_o then WriteLn('Больше букв е, чем о ')  
  else   if  cnt_o > cnt_e then WriteLn('Больше букв о, чем е ')  
  else WriteLn('букв о и е одинаковое количество')  
end.

var s : string;
begin
  WriteLn('введите предложение:');
  ReadLn(s);
  s := ' ' + s +' '; {добавим пробелы в начало и конец, чтобы учесть первое и последнее слова} 
  if Pos(' хорошо ' ,s)>0 then WriteLn('УРА, такое слово есть!')
  else WriteLn('нет слова "хорошо" в предложении ');
end.