{$mode objfpc}
uses
  Variants;

var
  a : array of longint;
  v : variant;
begin
  setlength(a,1000);
  v:=a;
end.