Функция, которая возвращает среднюю длину слов текста даны произвольные текстовые файлы. , .

PascalABC.NET 3.3.5, сборка 1648 от 31.03.2018
Внимание! Если программа не работает, обновите версию!

function AvgLen(fn:string):real;
begin
  if FileExists(fn) then
    Result:=ReadAllText(fn).ToWords.Select(w->w.Length).Average
  else
    Result:=0
end;

begin
  Writeln(AvgLen(ReadlnString('Имя файла:')):0:2)
end.

Примеры
Имя файла: input.txt
5.42

Имя файла: Pushkin2.txt
5.20

Имя файла: Pascal.txt
7.02