uses
    testlib, sysutils;
var
    ja, pa: string;
    i, l: longint;

function compress(s: string): string;
begin
    if length(s) < 100 then
        compress := s
    else
        compress := copy(s, 1, 50) + '..' + copy(s, length(s) - 24, 50);
end;

begin
  l := 0;

  while not ans.seekeof do begin
    if ouf.seekeof then quit(_wa, 'not enough numbers');
        ja := ans.readword(blanks, blanks);
        pa := ouf.readword(blanks, blanks);
        if ja <> pa then
            quit(_wa, 'number ' + inttostr(l) + ' - expected: "' + compress(ja) + '", found: "' + compress(pa) + '"');
  end;
  if not ouf.seekeof then quit(_wa, 'too many numbers');
     quit(_ok, inttostr(l) + ' numbers');
end.