原程序在此使用object作为类型名称,在支持面向对象的Turbo Pascal 7.0中编译不能通过