исправить ошибки

[ччч1]

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.

[hon]

Это приказ? Что вообще делает ЭТО?