найти ошибку (горю) паскаль

[calimdor]

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

uses Crt;
type myfile=file of char;
function dlinna ( 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
dlinna:=0
else
dlinna:=d/k;
seek(f,pos1);
close(f);
                               end.

[Stilet]

методом индуктивной функции

Это че?

написана в стиле защитного програмирования

Это как?
Так а ошибка то в чем? С чего ты взял что в программе ошибка?