Question

40 баллов!

В файле input.txt записаны данные об участниках конкурса «Рога и Копыта»: фамилии, имена и количество баллов, набранных в первом туре. Во второй тур проходят участники, которые набрали более K баллов в первом туре. Напишите программу, которая выводит в файл output.txt фамилии и инициалы всех участников, прошедших во второй тур, с нумерацией. Список должен быть отсортирован по фамилиям в алфавитном порядке.



Входные данные


В первой строке файла input.txt записано натуральное число K . В следующих строках записаны данные об участниках в следующем формате:

<фамилия> <имя> <количество баллов>

Данные каждого участника записаны в отдельной строке, все элементы разделены одиночными пробелами. Количество участников не превышает 10000.



Выходные данные


В первой строке нужно вывести в файл output.txt количество участников второго тура. Затем программа должна вывести фамилии и инициалы всех участников, прошедших во второй тур, с нумерацией. Имя нужно сократить до одной буквы. Список должен быть отсортирован по фамилиям в алфавитном порядке.



Примеры

Входные данные

80

Smith Jack 80

Cormen Alex 92

Knuth Donald 98

Mirabella Maria 78

Выходные данные

2

1) A. Cormen

2) D. Karmen

Answer 1

Ответ:

Объяснение:

Например, вот так - чтение а из файла и запись b в файл.  

var  

a,b : byte;  

F : file of byte;  

begin  

assign(F,'input.txt'); reset(F);  

read(F,a);  

close(F);  

 

assign(F,'output.txt'); rewrite(F);  

write(F,b);  

close(F);  

end.