функция eof

[akgoal]

Доброе время суток. Помогите, пожалуйста, разобраться с eof в паскале.
В общем сама задача не очень важна. Проблема в том, что уже после конца файла программа упорно считывает один нулевой элемент.
Фрагмент:

c:=not eof(y);
     while c=true do
     begin
     read (y,b);
     if b<a then begin writeln(z, b);d:=false; c:=not eof(y); end else begin c:=false; b2:=b; d:=true; end;
     end;

На d и b2 прощу внимания не обращать=). Переменную c ввел для возможности выхода из цикла при невыполнении условия. Подскажите, что не так)

[whatever]

while not EOF(y) do
begin
  read(y,b);
  if b<a then
    writeln(z, b);
end;

[akgoal]

мне нужно остановить прочтение файла, если условие b<a не выполнено и выйти из цикла while not EOF(y)

[JIeIIIa]

Ну так выходите)))

while not EOF(y) do
begin
  read(y,b);
  if b<a then
    writeln(z, b)
  else break;
end;

[akgoal]

так все равно ноль захватывает(

[Serge_Bliznykov]

а Вы не допускаете, что там реально есть ноль в конце?!

приведите описание var y : ????
и выложите сюда архив с вашим файлом.


p.s. если у вас вдруг в расширенном режиме недоступно управление вложениями, тогда архив разместите на любом бесплатном файлообменнике, а сюда на форум ссылочку на скачивание..