Übergebenes Array: low() immer 0?

[negaH]

Delphi-Quellcode:

var
  C: array[0..1] of Integer;
  I,J: Integer;
begin
  C[0] := 0;
  C[1] := 0;
  J := 0;
  for I := Low(Array) to High(Array) do
  begin
    Inc(C[J], Array[I]);
    J := (J + 1) and 1;
  end;
  Result := C[0] + C[1] * 3;
end;

Gruß hagen