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

[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.

[andriano]

1. Проверка наличия файла делается обычно так (почему - не понимаю, есть более изящные способы, но так принято):

  assign(f,name);
  {$I-}
  reset(f);
  {$I+}
  if IOresult<>0 then

2. Переменные summa и kol не инициализируются перед использованием.
3. Файлы принято закрывать после использования.

Добавлено через 2 мин.
2volvo: сам был удивлен, но согласно справке указание файловой переменной для текстовых файлов необязательно.