Определить среднее арифметическое всех положительных компонент файла

var
  f:text;
  a:array [1..100] of real;
  i,n,kpol:byte;
  sr:real;
begin
  assign(f,'in.dat');
  reset(f); n:=0; kpol:=0; sr:=0;
  while not eof(f) do begin
    n:=n+1; read(f,a[n]);
    if a[n]>0 then begin
      kpol:=kpol+1; sr:=sr+a[n];
    end;
  end;
  close(f);
  sr:=sr/kpol;
  if a[1]<sr then a[1]:=sr;
  for i:=1 to n do write(a[i]:0:1,' ');
  rewrite(f);
    for i:=1 to n do write(f,a[i]:0:1,' ');
  close(f);
end.

var f: file of real;
    sr, t: real;
    i, n, k: longword;
begin
  randomize;
  repeat
    write('Введите количество чисел: ');
    readln(n)
  until n > 0;
  dec(n);
  //Записать на диск файл вещественных чисел
  assign(f, 'f.dat');
  rewrite(f);
  writeln('Исходный файл:'); //убрать, если не нужна печать исходного файла
  for i := 0 to n do
    begin
      t := 99 - 199 * random;
      write(f, t);
      write(t:8:3) //убрать, если не нужна печать исходного файла
    end;
  writeln;
  //Определить среднее арифметическое всех положительных компонент файла
  reset(f);
  sr := 0;
  k := 0;
  for i := 0 to n do
    begin
      read(f, t);
      if t > 0
        then begin
          inc(k);
          sr := sr + t
        end
    end;
  if k = 0
    then writeln('Файл не содержит положительных компонентов')
    else begin
      sr := sr / k;
      writeln('Среднее арифметическое положительных компонентов файла: ', sr:0:3);
      //Если первая компонента меньше среднего арифметического значения , заменить Ее значением
      reset(f);
      read(f, t);
      if t >= sr
        then writeln('Среднее арифметическое положительных компонентов не больше первой компоненты')
        else begin
          reset(f);
          write(f, sr);
          //файл распечатать
          writeln;
          writeln('Результат:');
          reset(f);
          for i := 0 to n do
            begin
              read(f, t);
              write(t:8:3)
            end;
          writeln
        end
    end;
  close(f);
  readln
end.

readln(t);

      t := 99 - 199 * random;

      write(i+1, ' число = ');
      readln(t);
      write(f, t);