怎样打开2进制文件？

Question

var
 myFile:File of byte;
 myDat:byte;
 myDatArr:Array[1..20] of byte;
begin
 assignFile(myFile,'你的文件');
 try
  reset(myFile); //打开文件
  seek(myFile,108); //定位到第108个字节处，位置你可以自己定了
  read(myFile,myDat); //读出一个字节，赋给myDat
  seek(myFile,50); //重定位到第50个字节处
  read(myFile,myDatArr); //读出20个字节，保存到数组中
 finally
  closeFile(myFile); //关闭文件
 end; //end of try
end;写文件用write(myFile,myDat); 其它都一样