Вфайле записаны данные о результатах сдачи экзамена. каждая строка содержит фамилию, имя и количество , разделенные пробелами: вывести в другой файл данные учеников, которые получили больше 80 . список должен быть отсортирован по убыванию . формат выходных данных: п. иванов 98 и. петров 96

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

type
  R=(string,integer);

begin
  var a:=ReadAllLines('input.txt');
  var L:=new List<R>;
  foreach var s in a do begin
    var w:=s.ToWords.ToArray;
    if w[2]>'80' then L+=(w[1][1]+'. '+w[0],w[2].ToInteger);
    end;
  var f:=OpenWrite('output.txt');
  L.OrderByDescending(x->x[1]).ForEach(x->Writeln(f,x[0],' ',x[1]));
  f.Close
end.