цикл While Опции

[~PALERMO~]

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

[Гость]

А нельзя допустим связать прекращешие ввода данных с нажатием клавиши enter?? (Ну допустим ввожу строку чисел 1232 43453 457457.... здесь он читает все введенные числа через цикл, доходит до конца строки, где стоит enter и прекращает цикл)

Какое для этого должно быть условие цикла?

[Malice]

Какое для этого должно быть условие цикла?

Я думаю примерно таким:

 While not (eoln(input)) do ..