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

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:=0end;begin  Writeln(AvgLen(ReadlnString('Имя файла:')):0:2)end.ПримерыИмя файла: input.txt5.42Имя файла: Pushkin2.txt5.20Имя файла: Pascal.txt7.02