有谁用过定义过程或函数时的无类型参数？奖励50元！！！(50分)

原代码如下：
Record1 = Record
***: string[3];
***: string[3];
***: string[8]

end;

Record2 = Record
***: string[1];
***: string[6]

end;

MyType1 = File of Record1;
MyType2 = File of Record2;

rec1: MyType1;
rec2: MyType2;

procedure Open(var sFile);
begin
AssignFile(sFile, '111.dat');
Rewrite(sFile);
.......
CloseFile(sFile)
end;
我想在调用open过程时，根据参数的不同，譬如：Open(rec1)，来决定使用
何种记录类型文件，但是编译无法通过。这种用法可行吗？感谢各位！！！

学习！

可以用一个标识，比如美举型的，用case语句，决定你的操作

可是编译都通不过呀！！！

//这里需要用无类型参数吗？
procedure Open(var sFile: file);

不知IS关键字现在能不能用上