Комбинированный тип

[мариель]

Помогите пожалуйста решить задачу!

type время = record час: 0..23;
мин, сек: 0..59;
end;
Описать процедуру Интервал(d,t2,t1), которая вычисляет время d, прошедшее от времени t1 до времени t2: d = t2–t1. (Считать, что t2>t1).

[Serge_Bliznykov]

procedure Интервал(var d : время; t1, t2 : время);
var diffsec : integer;
begin
  diffsec := (t2.час*3600+t2.мин*60+t2.сек) - (t1.час*3600+t1.мин*60+t1.сек);
  with d do begin
     час := diffsec div 3600;
     мин := (diffsec - час * 3600) div 60;
     сек := (diffsec - час * 3600) mod 60;
  end;
end;