Array in einer function mit Werten füllen

[Nikolas]

Ich will für mehrere array of integer in einer function alle Elemente mit einer bestimmten Zahl belegen.
Mein Ansatz sieht so aus:

Delphi-Quellcode:

 function  Arrayreset(x: array of integer): integer;    
  var
  i:integer;
  begin
        for i:=0 to high(x) do
        x[i]:=55;
  end;

Wenn ich aber Arrayreset(Liste); ausführen lasse, passiert der Liste nichts, wenn ich aber innerhalb der function das x durch den Namen des Arrays (liste) ersetzt funktionierts wie ich mir das so vorstelle.
Wer hat da eine Idee ???

Edit: Schreibfehler entfernt

[scp]

Probier mal

Delphi-Quellcode:

function  Arrayreset(var x: array of integer): integer;    // var hinzugefügt
  var 
  i:integer; 
  begin 
        for i:=0 to high(x) do 
          x[i]:=55; 
  end;