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

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