[Lotles]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
Arr: array[1..10] of integer;
i:integer;
begin
for i:=1 to 11 do
if i>3 then Arr[i]:=0 else Arr[i]:=1;
Label1.Caption:=IntToStr(StrToInt(Edit1.Text)+StrToInt(Edit2.Text));
end;

Почему отладчик не находит ошибку в этой строке

Код:

if i>3 then Arr[i]:=0 else Arr[i]:=1;