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

type
  reals = file of real;
 
function less(var f: reals): integer;
var
  s,avr,x: real;
  i: integer;
begin
  seek(f,0);
  i:=0; s:=0;
  while not eof(f) do
  begin
    read(f,x);
    s:=s+x;
    inc(i);
  end;
  avr:=s/i;
  seek(f,0);
  i:=0;
  while not eof(f) do
  begin
    read(f,x);
    if x<avr then inc(i);
  end;
  less:=i;
end;
 
var
  f: reals;
  i: byte;
  t: real;
begin
  assign(f,'in.dat');
  rewrite(f);
  for i:=1 to 5 do
  begin
    t:=random*10;
    write(f,t);
  end;
  writeln('Èñêîìûõ ýëåìåíòîâ: ',less(f));
  close(f);
  readln;
end.

type { объявляем тип }
  reals = file of real;
 
{функция - входящий параметр - типизированный файл}
{файл уже открыт}
function less(var f: reals): integer;
var
  s,avr,x: real;
  i: integer;
begin
  seek(f,0);    {переходим в начало файла}
  i:=0; s:=0;
  while not eof(f) do  {пока не достигли конца файла...}
  begin
    read(f,x);   {читаем очередной элемент}
    s:=s+x;      {прибавляем его значение к сумме}
    inc(i);       {увеличиваем счетчик}
  end;
  avr:=s/i;       {среднее = сумма, деленная на количество}
  seek(f,0);      {переходим в начало файла}
  i:=0;           {обнуляем счетчик}
  while not eof(f) do    {пока не достигли конца файла}
  begin
    read(f,x);          {читаем очередной элемент}
    if x<avr then inc(i);   {если элемент меньше среднего, увеличиваем счетчик}
  end;
  less:=i;         {результату присваиваем значение счетчика}
end;
 
var
  f: reals;
  i: byte;
  t: real;
begin
  assign(f,'in.dat'); {ассоциируем файл с именем}
  rewrite(f);         {открываем "чистый" файл}
  for i:=1 to 5 do    {в цикле от 1 до 5}
  begin
    t:=random*10;     {врем. переменная = случайное}
    write(f,t);       {записываем в файл}
  end;
  writeln('Искомых элементов: ',less(f));  {вызываем процедуру}
  close(f);           {закрываем файл}
  readln;
end.