программа(FreePascal)

[Nastya1221]

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

[whatever]

Я не знаю, что такое индуктивная функция (точнее, каким боком ее тут использовать), но решить можно вот так:

type
  TFINT=file of integer;
Function MidLength(var T:TFINT):real;
var
  allsum,i,tmp:integer;
begin
  i:=0;
  allsum:=0;
  reset(T);
  while not EOF(T) do
    begin
      read(T,tmp);
      if IntToStr(tmp)[1]='9' then
        begin
          inc(i);
          allsum:=allsum+length(IntToStr(tmp));
        end;
    end;
  result:=allsum/i;
end;

var
  T:TFINT;
  i,k:integer;
begin
  assignfile(T,'C:\ФайликСЦиферками');
  rewrite(T);
  randomize;
  for i:=0 to 20 do
    begin
      writeln(k);
      k:=random(10000);
      write(T,k);
    end;
  close(T);
  write(MidLength(T));
  readln;
end.