如何在Delphi中通过引用传递数组？

program PassArrayByReference;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TIntArray = array of Integer;

procedure ModifyArray(var A: TIntArray);
var
  I: Integer;
begin
  for I := 0 to Length(A) - 1 do
    A[I] := A[I] * 2;
end;

var
  MyArray: TIntArray;
  I: Integer;
begin
  SetLength(MyArray, 5);
  for I := 0 to Length(MyArray) - 1 do
    MyArray[I] := I + 1;

  WriteLn('Before modification:');
  for I := 0 to Length(MyArray) - 1 do
    WriteLn(MyArray[I]);

  ModifyArray(MyArray);

  WriteLn('After modification:');
  for I := 0 to Length(MyArray) - 1 do
    WriteLn(MyArray[I]);

  ReadLn;
end.