Проблема с выводом текста Опции

[Tonny_Bennet]

Всем привет. Вот написал программу в которой использовал данную процедуру

Procedure write_to_file;
Var x:integer;
begin
Writeln('Vvedite chisla: (dlya vihoda Ctrl+z) ');
while not eof do
 begin
 Write('x= '); 
 readln(x);
 Write(fint,x);
 end;
close(fint)
end;

а приглашение Write('x= '); выводится как-то страноо, когда цикл работает первй раз строка x= не печатается

Vvedite chisla: (dlya vihoda Ctrl+z) 
7
x=5
x=4
x=

в последующих рзах всё нормально работает. Скажите пожалуйста почему.

[volvo]

while not eof do

будет ожидать ввода с клавиатуры, что, собственно, и происходит - и пока ты что-то не введешь, дальше не продвинешься. Если ты прогонишь программу пошагово, то убедишься в этом...

[Tonny_Bennet]

Спасибо за разъяснение.