Invalid pointer operation

[Димарик]

Помогите пожалуйста такой вапрос.
приграмма выполняеться по примерно 1 к 10, а то и раньше происходит ошибка в виде сообщения Invalid Pointer operation

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
count_:=0;
try
i:=strtoint(trim(edit1.text));
except
on EConvertError do i:=10;
end;

begin
setlength(mas,i);
for i:=0 to length(mas) do
begin
mas[i]:=random(2);
Application.ProcessMessages;
Edit1.Text:=inttostr(i);
end;
end;
for i:=1 to length(mas) do
begin
case RadioGroup1.ItemIndex of
0: if ((mas[i])=1) and ((mas[i+1])=0) and ((mas[i+2])=1) then count_:=count_+1;
1: if ((mas[i])=0) and ((mas[i+1])=1) and ((mas[i+2])=0) then count_:=count_+1;
2: if ((mas[i])=1) and ((mas[i+1])=1) then count_:=count_+1;
3: if ((mas[i])=0) and ((mas[i+1])=0) then count_:=count_+1;
end;
end;
Memo1.Lines.Add(inttostr(count_));
count_:=0;
end;

end.

[_Dmitry]

Замени length(mas) на High(mas)
length(mas) - показывает число элементов в массиве, а
High(mas) - максимальный индекс.
Например, если setlength(mas,10); то
length(mas) = 10
High(mas) = 9
т.к. индексация динамического массива начинается с нуля

[Димарик]

большое cпасибо!