一开始是
==========
repeat
   readln(n,m);
   .....
until eof
=========
wa掉。。

后来调试很久，找不到问题，就改成
==========
repeat
   readln(n,m);
   if eof then break;
   .....
until eof
==========
AC。