程序里开始加
time := memw[$40:$6c];

结尾加

time2 := (time2-time1)/18.2*time;

时间就是 time2

[fly]做题的人是伟大的！[/fly]

做题的人是伟大的！
做题的精神是可贵的！
做对了题目是光荣的！
做错了题目是可耻的！
……
做题的同胞们
高举“以做题为荣，不做题为耻”理论的伟大旗帜
认真贯彻落实“做题第一”的要求
坚持“会要做，不会也要做”的思想路线
弘扬“一不怕难，二不怕累，三不怕多”的精神
把“做题”作为我们振兴新中国的第一要务
从此，做题要有新思路、新突破、新局面
要从根本上改变“几天一做、想到才做”的懒散型方式
以提高做题效率为中心，从而走上“每人每天做、不做业做”的新路子

这是在程序里实现的计时器.
定义time为LONGINT  
在读入数据的语句后面加上time:=meml[$40:$6c];
在输出后加上
  time:=meml[$40:$6c]-time;
  writeln(time/18.2:0:n);
n根据你需要的位数定,这个输出是按秒的,如果n=2那么就会输出X.XX;