Описать функцию less(f) от непустого файла f, меньших среднего арифметического всех элементов этого файла

       Program n5;
       {
         Задача.  Описать функцию less(f) от непустого файла f   
                  типа reals, type = file of real; которая
                  подсчитывает количество элементов файла f,
                  меньших среднего арифметического всех
                  элементов этого файла.
       }
 
       Uses Crt;
 
       Const
         n: word = 1000;
 
       Type
         reals = file of real;
       Var
 
         f: reals;
         buf: real;
 
       Procedure fileOpen ( var
                              f {файловая переменная вещественного типа}
                              : reals;
                              name {имя файла}
                              : string
                          );
       {
        Создает или открывает файл.
       }
       begin
         Assign (f, name);
         {$I-}   {отключение генерации кода проверки ошибок ввода-вывода}
         Reset (f);
         if IOResult <> 0
           then
             begin
               Rewrite (f);
               if IOResult <> 0
                 then
                   begin
                     Write ('Ошибка при создании файла!', ^G);
                     Readln;
                     Halt (0101);
                   end;
             end;
         {$I+}
       end;
 
       Procedure writeToFile ( n {количество всех обьектов файла}
                               : word
                             );
       var
         i {переменная цикла}
         : word;
       {
        Заполняет файл случайными обьектами типа reals.
       }
       begin
         i := 1;
         while (i <> n) do
           begin
              buf := 1000 / (Random (999) + 1);
              Write (f, buf);
              Inc (i);
           end;
       end;
 
       Function less ( var
                         f {файловая переменная вещественного типа}
                         : reals;
                         n {количество всех обьектов файла}
                         : word
                     )
                     : word;
       var
         i, {переменная цикла}
         l {счетчик}
         : word;
         sArif {накопитель арифметического обьектов файла.}
         : real;
       {
         Возвращает количество обьектов открытого файла меньших
         среднего арифметического всех обьектов.
       }
       begin
         Seek (f, 0);
         i := 1;
         sArif := 0;
         while (i <> n) do
           begin
             Read (f, buf);
             sArif := sArif + buf;
             Inc (i);
           end;
         sArif := sArif / n;
         Seek (f, 0);
         l := 0;
         while (i <> 1) do
           begin
             Read (f, buf);
             if buf < sArif
               then
                 Inc (l);
             Dec (i);
           end;
         less := l;
       end;
 
       Begin
         Randomize;
         ClrScr;
         fileOpen (f, 'reals.tmp');
         writeToFile (n);
         WriteLn (
                   'Количество обьектов в файле меньших среднего ' +
                   'арифметического этих обьектов равно: ', less (f, n)
                 );
         Close (f);
         Erase (f);
         Readln;
       End.