Методом индуктивной функции вычислить среднюю длину ...

uses crt;
 
Type
   TFile = file of char;
   TInt = Integer;
   TReal = Single;
 
Function One(var f: TFile; var Res: TReal): boolean;
 
var
  i, count: TInt;
  ok: boolean;
  f1, f2: boolean;
  t: char;
 
Const
    Dig = ['0'..'9'];
 
begin
    ok:= true;
    reset(f);
If IOResult <> 0 then ok:= false else
 begin
   i:= 0;
   count:= 0;
   f1:= false;
   f2:= false;
   while (not ok) or eof(f) do
     begin
      {$I-}
      read(f,t);
      {$I+}
       If IOResult <> 0 then ok:= false;
       If t = '9' then
       f1:= true;
       If f2 = true then
        begin
          count:= count + 1;
          f2:= false;
          end;end;
   If (t in Dig) and f1 then begin
   i:= i + 1
   end else
   If f2 then begin
     count:= count + 1; f2:= false; end;
   If (ok = true) and (I <> 0) then res:= I/count; one:= ok;
   end;
end;
 
var
  name: string;
  err: boolean;
  f: TFile;
  res: TReal;
  count, i: TInt;
begin
clrscr;
writeln('Enter name of file');
   readln(name);
   assign(f, name);
   err:= one(f, res);
   If err then writeln('res=', count) else writeln('error');
   {writeln(i);
   writeln(Count);}
   readln;
 
 
end.