среднее значение для исходного файла

[IIe4eHbka]

Подсчитать для исходного файла среднее значение положительных чисел.Получить новый файл g, поместив в него только те положительные нечетные компоненты файла ,значение которых отличается от посчитанного среднего значения не более,чем на 10%.

program ex;
function avg(filename:string):real;
var f:file of integer;
    d:real;
    i:integer;
begin
 assign(f,filename);
 reset(f);
 i:=0;
 result:=0;
 while not eof(f) do
  begin
  read(f,d);
 if d>0 then Result:=Result+d;
 inc(i);
  end;
 if i>0 then Result:=result/i;
 closefile(f);
end;
function po(filenameIn,FileNameOut:string):real;
var f,g:file of integer;
    d,e:real;
    i:integer;
begin
 e:=avg(FilenameIn);
 assign(f,filenameIn);
 reset(f);
 assign(g,filenameIn);
 rewrite(g);
 while not eof(f) do
  begin read(f,d);
 if (abs(d-e)/e<=0.1) and (d>0) and odd(d)
 then write(g,d);
  end;
end;
 closefile(f);
 closefile(g);
end;
 begin
 avg(filename);
 po(filenameIn,FileNameOut);
end.

помогите пожалуйста ошибки исправить

[Serge_Bliznykov]

вот, только я не проверял.

те ошибки, которые увидел, исправил:

program Project6;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function avg(filename: string): real;
var f: file of integer;
  d, avg_temp : integer;
  i: integer;
begin
  assign(f, filename);
  reset(f);
  i := 0;
  avg_temp := 0;
  while not eof(f) do
  begin
    read(f, d);
    if d > 0 then begin
      avg_temp := avg_temp + d;
      inc(i);
    end;
  end;
  if i > 0 then avg := avg_temp / i
  else avg := 0;
  closefile(f);
end;

procedure po(filenameIn, FileNameOut: string);
var f, g: file of integer;
  e : real;
  d : integer;
begin
  e := avg(FilenameIn);
  assign(f, filenameIn);
  reset(f);
  assign(g, filenameIn);
  rewrite(g);
  while not eof(f) do
  begin
    read(f, d);
    if (abs(d - e) / e <= 0.1) and (d > 0) and odd(d)
      then write(g, d);
  end;
  closefile(f);
  closefile(g);
end;

var
  filenameIn, FileNameOut : string;
begin
  WriteLn('Vvedite imya ishoidnogo faila');
  Readln(filenameIn);
  WriteLn('Vvedite imya vyhodnogo faila');
  Readln(FileNameOut);
  po(filenameIn, FileNameOut);
  WriteLn('Done!');
end.

учтите, что файлы НЕ текстовые, они бинарные (двоичные) писать/читать их можно только через программу, блокнотом/редактором Вы там ничего полезного не увидите/не напишите!