Написать программку, которая сортирует записи в файле F по алфавиту по

// PascalABC.NET

// Версия 3.4 сборка 1749 (18.08.2018)

begin

var (f, out) := (ReadAllLines('in.txt'), OpenWrite('in.txt'));

f.Select((t, i)-gt; (t.ToWords[0], i)).Sorted.ForEach(t -gt; begin Writeln(out, f[t[1]]) end);

out.Close;

end.

Файл, который использовал для проверки в приложении(совпадение с реальными именами - случайность).

Считывание и запись происходит в одном файле.