Дан текст. Выяснить, верно, ли, что в тексте имеется, пять идущих подряд букв е — Pascal(Паскаль)

var
s:string;
begin
writeln('Vvedite stroku');
readln(s);
if pos('eeeee',s)>0 then writeln('Yes!');
end.