цикл While Опции

[~PALERMO~]

У меня значит такой вопрос: имеется последовательность целых чисел, введенных пользователем с клавиатуры(например: 123 4567 8989 43 54545 ...), мне надо считать каждое число(что я и делаю при помощи "read', который читает каждое последующее число в последовательности, забиваю его в оператор цикла while, но тут возникает одна загвоздка:как обьяснить машине, до каких пор она должна выполнять оператор "read", когда ей остановиться ) Тоесть у меня проблема с самим условием цикла: While ..... do (не знаю что нужно поставить заместо "...." ).
P.S это часть строго поставленной задачи, поэтому использование массивов и строк недопустимо(можно пользоваться тоько условными операторами(IF, CASE ) и циклами)
_____________
ПОМОГИТЕ ПЛЗ

[~PALERMO~]

Попробовал, че т не катит: последовательность читает, а вот цикл не пашет, вот код:

Код

var a:integer;
begin
  readln(a);                       //читает всю последовательность
repeat
  read(a);                         //читает каждый символ последовательности
  write(a)                          //выводит каждый символ последовательности
until (eoln(input));             //цикл работает до тех пор, пока не "встретит" "enter"
  readln;
end.

Все вродь логично, а не работает мож все дело в "(eoln(input))" иль я чего-то не понимаю??
или эт все из-зи дельфи(Console app)
_______________________________
Помогите разобраться плз