Информатика,паскаль,рекорд,комбинированный тип.

type        time=record
          hour:0..23;
          min:0..59;
          sec:0..59;
              end;
а) описать логическую функцию pan (T1, T2) для проверки стоящее время Т1 впереди Т2 (в рамках суток). Ввести Т1 и Т2, а также результаты;
б) описать процедуру add_sec (Т, Т1), предоставляя Т1 время на одну секунду больше, чем Т (принять во внимание время суток);
в) ввести ряд времен и напечатать их в порядке убывания.
Сделать при помощи комбинированного типа.