NEERC/kequiv/check.dpr

   1 {$r+,q+,o-}\r
   2 {$apptype console}\r
   3 uses\r
   4         testlib, SysUtils;\r
   5 \r
   6 var\r
   7         ja, pa : string;\r
   8         line : integer;\r
   9 \r
  10 begin\r
  11         line := 1;\r
  12         while not ans.seekeof do begin\r
  13                 ja := ans.readString();\r
  14                 pa := ouf.readString();\r
  15                 if (ja <> pa) then\r
  16                         quit(_wa, format('Line %d, expected: %s, found: %s', [line, ja, pa]));\r
  17                 inc(line);\r
  18         end;\r
  19         quit(_ok, inttostr (line) + ' lines');\r
  20 end.\r