[Konrad]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
Arr: array[1..7] of integer;
i:integer;
begin
for i:=1 to 11 do
if i>3 then Arr[i]:=0 else Arr[i]:=1;
end;

Массив от 1 до 7, а причем тогда тут 11-ть?:
for i:=1 to 11 do