дана строка знаков узнать верно ли что в строке имеются 5

Попорядку?

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

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