и снова нужна помощь с паскалем

[getherefast]

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

[puporev]

Это задача не на вложенные циклы, хотя возможно где-то и придется их использовать. Это задача на записи, а точнее на массивы записей.
Короче создаешь type protokol=record;
name:string;
data:подберешь тип;
massa:real;
end;
Объявляешь массив этих записей a:array[1..10]of protokol;
Заносишь в него данные о всех яхтах, выбираешь, у кого более ранняя a.data, тот и победитель, если несколько, выбираешь их, а из них у кого a.massa меньше. Такие задачи часто были на форуме, есть они во всех учебниках, а также на разных сайтах в интернете.

[getherefast]

спасибо большое за помощь!!!