Öffnen einer txt datei funktioniert als Funktion nicht

[punker-lili]

Hi Leute!
Ich hatte folgenden Ablauf zum Öffnen einer Textdateiin meinem Programm. Da ich dieses jetzt öfters brauche, wollte ichs als Procedure speichern aber da meckert er rum, wenn ich die Länge der dynamischen arrays festlege. Wie kann man das beheben?

Der Quellcode:

Delphi-Quellcode:

procedure oeffnen(ort:string;var sd_takt,sd_v,sd_ende:integer;var sd_laenges,sd_hoehes:array of integer;var test_klick:boolean);
var sd_schnitt:Textfile;
    sd_hoehe,sd_laenge:array of integer;
    sd_ton:array of string;
    sd:integer;
begin
 AssignFile(sd_schnitt,ort);
 Reset (sd_schnitt);
 readln(sd_schnitt,sd_takt);
 readln(sd_schnitt,sd_v);
 readln(sd_schnitt,sd_ende);
 setlength(sd_ton,sd_ende);
 setlength(sd_laenge,sd_ende);
 setlength(sd_hoehe,sd_ende);
 for sd:=0 to sd_ende -1 do
  begin
   readln(sd_schnitt,sd_ton[sd]);
   sd_hoehe[sd]:=strtoint(copy(sd_ton[sd],1,2));
   sd_laenge[sd]:=strtoint(copy(sd_ton[sd],3,1));
  end;
closefile(sd_schnitt);
test_klick:=false;
end;

Danke!