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

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

Пример:
Введите строку:
Примееееер пример
В строке имеются 5 подряд идущих букв е