Задача такая: Даны натуральное число n , символы s1,s2...sn . Выяснить, верно ли, что в последовательности имеются пять идущих подряд букв е.
Написала код, но выдает ошибку( выделила жирным), а почему не понятно
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
i,c,n:integer;
begin
n:=StrtoInt(Edit1.Text);
s:=Edit2.Text;
for i:=1 to n do
if s[i] and s[i-1]='e'
then c:=c+1;
if s[i] and s[i+1]<>'e'
then c:=0;
if c=5 then Label3.Caption:='Да'
else Label3.Caption:='Нет'
end;
Админ: пользуемся тегами для оформления кода!