Дан файл f. Подсчитать количество символов в каждой строкеи записать в файл g.

// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
WriteLines('g.txt',ReadLines('f.txt').Select(x->x.Length.ToString))
end.

Скачать вложение Текст (TXT)