Ну почему все так боятся двухпроходности по файлу? Хорошее же решение: var a := ReadLines(ReadString); write(a.Sum(e->e.Length), a.Count())
0
0
0
0
0