Файлы, Подскажите почему не работает? Опции

[Neon6868]

Задание: Подсчитать количество элементов файла, больших среднего арифметического.

Программа:

Program HACK;
var
  f:text;
  kol,bol:integer;
  ar,x, summa:real;
  name:string;
Begin
  {$I-}
  writeln('Vvedite imya faila');
  readln(name);
  assign(f,name);
  reset(f);
  if IOresult<>0 then
  begin
    writeln('File ne naiden!');
    exit
  end;
  while not eof do
  begin
    read(f,x);
    summa:=summa+x;
    kol:=kol+1;
  end;
  bol:=0;
  close(f);
  reset(f);
  ar:=summa/kol;
  while not eof do
  begin
    read(f,x);
    if x>ar then bol:=bol+1;
  end;
  writeln('Kol-vo elementov bolshix srednego arifmeticescogo=',bol);
End.

[volvo]

Потому что

While not eof(F) do { <--- ты ничего не забыл? }