Циклы, Помогите решить задачу с циклом Опции

[UCH]

Здравствуйте помогите пожалуста написать программу
Вот задание

1).Создать файл следующим образом: с клавиатуры вводятся числа до тех пор ,пока не будет введено число 9999. но нужно сделать так чтоб число 9999 не использовалось в коде.
2).Вывести каждый элемент файла на экран.

я понял так! что (от 1 до 9998) и (от 1000 до N)!

Помогите пожалуста

[Айра]

Или так:

var a: integer;
...
repeat
...
until a=(10000-1);