哪位高手帮忙看看，这程序的有关问题出在哪

谁帮忙看看，这程序的问题出在哪？
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;

[解决办法]
错误的信息的意思是：实参和形参的类型必须一致．自己多检查了