type time = record (тип запись) Опции

[mitz]

Доброй ночи! Народ, как сделать, не представляю вообще... Помогите, пожалуйста!

Дано время, описанное следующим образом:
type time = record
h:0..23;
m,s: 0..59
end;
Описать логическую функцию erlier(t1,t2) для проверки, предшествует ли время t1 времени t2 (в рамках суток) и проиллюстрировать её работу в программе.

[TarasBer]

> result := (T1.h < T2.h) or
((T1.h = T2.h) and (T1.m < T2.m)) or
((T1.h = T2.h) and (T1.m = T2.m) and (T1.s < T2.s));

Как-то на матрёшку похоже...
Мне больше нравится так:


if T1.h<>T2.h then Result := T1.h<T2.h
else
if T1.m<>T2.m then Result := T1.m<T2.m
else
if T1.s<>T2.s then Result := T1.s<T2.s