символы в типизиртванном файле найти методом индуктивной функции среднее значение символьных представлений натур чисел начиная с 9

[calimdor]

подпрограма должна быть написана в стиле защитного програмирования помогите мне она нужна для зачета или помогите найти ошибку все на паскале
uses Crt;
type myfile=file of char;
function countlength ( var f:myfile; var ER:integer):real;
var k:integer;{koli4stvo simvoln predstavlen 4isel na4in s '9'}
d:integer;{Ix symarna9 dlina}
flag:integer;
el,a:char;
pos1:longint;
myset: set of '0'..'9';

begin

d:=0;
flag:=0;
k:=0;
pos1:=filepos(f);
{$I-}
seek(f,0);
read(f,a);

{$I+}

if ioresult=0 then
ER:=1;
begin
if a='9' then
flag:=1;
while not eof(f) do
{$I-}
read (f,el);
{$I+}
if ioresult<>0 then
ER:=0;
if (el in myset) then
begin
d:=d+1;
end;
if (el='9') and (flag=0) then
begin
flag:=1;
d:=d+1;
k:=k+1;
end;
if not (el in myset) and (flag=1) then
begin
flag:=0;
end;
a:=el;
end;
if k=0 then
countlength:=0
else
countlength:=d/k;
seek(f,pos1);
close(f);
end;
end.