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

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