在Ubuntu下一个很棒的对拍程序 for pascal

大家应该都知道如何在windows下面对拍程序，唧唧发明了个在任意平台都试用的对拍程序，详见代码:

program comp; uses crt,dos; var a,b:string; procedure rd(f:string;var a:string);//用来读入的程序，这里是读第一行 begin assign(input,f);reset(input); readln(a); close(input); end; begin repeat exec('make','');//在ubuntu下是没有exe后缀的 exec('name',''); exec('check',''); rd('name.out',a); rd('name.ans',b); writeln(a=b); until readkey='x'; end. 

这个程序怎么用呢？Ubuntu下可以用终端运行这个compare，然后你每按一下就可以拍一组数据，按X退出，这个程序需要调的两个库crt和dos在noi linux里有