谁帮忙看看，这程序的问题出在哪？

type  userarray=Array[1..6,1..6] of real;   
var    
k1:integer;    
sr500:string;    
vmax1,vza1,gdsa1:real;    
vora1:userarray;    procedure   abc(Var k:integer;Var sr:string;out vmax,vza,gdsa:real;out vor:userarray);   begin   
...... 
for y:=1 to 6 do 
       begin 
       for x:=1 to 6 do 
        begin 
vor[x,y]:=......; 
end; end;  
end;   procedure TForm1.RadioButton1Click(Sender: TObject);   begin   
k1:=1;   
sr500:=ComboBox1.text+'\vor-p\500\';   
abc(k1,sr500,vmax1,vza1,gdsa1,vora1);//这句没通过，怎么回事？   
label354.caption:=inttostr(gdsa1);   
label356.caption:=inttostr(vmax1);   
label358.caption:=inttostr(vza1);   
......   
end;