[v1s2222]

Код:

type
  Arr=array of double;

procedure Myproc(x, y: Arr);
begin
  SetLength(X, 1);
  X[0]:=6;
end;