Free Pascal. Как осуществить ввод чисел, не зная их кол-во?

Question

[Игорь Прищепа]

Здравствуйте!
Никак не могу найти информацию, как можно считывать числа отделённых друг от друга произвольным количеством пробелов и переводов строк.

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

Не работает, ошибка 201. Помогите, пожалуйста!