Проверьте код

[monty "2"]

Была задача: Заданы моменты начала и конца некоторого периода времени в часах, минутах и секундах. Найти продолжительность этого периода в том же виде (в пределах одних суток). Тип Data не использовать.

Есть код реализации

h:= strTOint(Edit1.Text);
m:= strTOint(Edit2.Text);
s:= strTOint(Edit3.Text);

h1:= strTOint(Edit4.Text);
m1:= strTOint(Edit5.Text);
s1:= strTOint(Edit6.Text);

if (s-s1)<0 then begin m:=m-1; s:=s+60-s1 end else s:=s-s1;
if (m-m1)<0 then begin h:=h-1; m:=m+60-m1 end else m:=m-m1;
if (h-h1)<0 then s:=h+24-h1 else h:=h-h1;
Label3.Caption:= inttostr(h)+':'+floattostr(m)+':'+inttostr(s);

Но если задать первый промежуток 01:30:50 а второй 23:30:50 то результатом является 1:0:2 а должно быть 2:0:0. Помогите найти ошибку

[eoln]

Сообщение от monty "2"

Заданы моменты начала и конца некоторого периода времени
...
Но если задать первый промежуток 01:30:50 а второй 23:30:50 то результатом является 1:0:2 а должно быть 2:0:0. Помогите найти ошибку

Судя по условию, должно быть 22 часа.

Промежуток между началом (h1:m1:s1) и концом (h:m:s)

  t := h*3600+m*60+s - h1*3600-m1*60-s1;
  if t < 0 then t := 24*3600 + t;

  Label3.Caption:= inttostr(t div 3600) + ':' + inttostr(t mod 3600 div 60) + ':' + inttostr(t mod 3600 mod 60);

[monty "2"]

чтобы было 22 часа у меня уже написан код но препод хочет что именно 2 показывал

eoln вроде работает