программирование на паскале

[sahsa-m37]

№1 дана последовательность символов S1...Sn.выяснить верно ли,что в последовательности S1...Sn имеется пять идущих подряд букв "Е".
Program prog;
uses crt;
var s:string;
i,f:integer;
begin
f:=0;
writeln('введите строку ');
readln(s);
for i:=1 to length(s) do begin
if s[i]='c' then f:=f+1 else begin
if (f<>5) then f:=0;
end;
end;
if (f=5) then writeln('верно') else writeln('неверно');
readln;
end.
но программа даже не запускается почему то...

[Toucan]

Тема перемещена в Карантин.

Чтобы оттуда выбраться, приведите свои попытки решения задачи и объясните, что конкретно вызывает затруднения.

После того как исправите сообщение, сообщите об этом в теме Сообщение в карантине исправлено.