var n: integer;
...
while not seekeof do
begin
read(n);
...
end;