Сформировать файл, имеющий следующую структуру type спортсмен=record
Фамилия:string
Страна:string
Рост:150-220 см
Вес:300-100
Год рождения:integer
Результат:integer
End
Определить вес спортсмена данной страны. Найти лучшего спортсмена данной страны. Список спортсменов данного возраста не хуже данного.