Вфайле записаны данные о результатах сдачи экзамена. каждая строка содержит фамилию, имя и количество , разделенные пробелами: вывести в другой файл данные учеников, которые получили больше 80 . список должен быть отсортирован по убыванию . формат выходных данных: п. иванов 98 и. петров 96
// Внимание! Если программа не работает, обновите версию!
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.