I read:
...
while not (seekeof) do
  readln(x1,y1,x2,y2);
....
Why WA#1?
Please help me or give some me tests.