1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

type
  my_type = Array of Integer;

var
  array1 : Array of Integer;
  array2 : my_type;

implementation

procedure laenge_setzen1 (test : Array of Integer);
begin
  SetLength(test,10); //<-- geht nicht
end;

procedure laenge_setzen2 (test : my_type);
begin
  SetLength(test,10); //<-- geht, da mit Typ gearbeitet
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

type
  feld = array[1..5,1..5,1..5] of integer;

implementation
{$R *.dfm}

procedure schreiben ( test : feld);
begin
  a( test );
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

interface
type
  feld = array[1..5,1..5,1..5] of integer;
procedure a(test : feld);
implementation
procedure a(test : feld);
begin
  test[1,1,1]:=1;
end;
end.