Дана строка символов выяснить верно ли что в строке имеются 5 подрат идущих букв е на паскале

var s:string; begin writeln('Введите строку:'); readln(s); if POS('еееее',s)>0  then writeln('В строке имеются 5 подряд идущих букв е')  else writeln('В строке нет 5 подряд идущих букв е'); end. Пример: Введите строку: Примееееер пример В строке имеются 5 подряд идущих букв е