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

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

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