Задача в PascalABC.NET с Integer

[AntoshkaK]

С клавиатуры вводится время начала эксперимента в часах, минутах и секундах, затем вводится время его окончания в часах, минутах и секундах. Напишите программу, которая определяет и выводит на печать, сколько часов минут и секунд продолжался эксперимент. Например, пусть время начала эксперимента 12 часов, 31 минута, 10 секунд, а время его окончания 13 часов 40 минут 3 секунды. Тогда программа должна вывести:
Эксперимент продолжался 0 ч. 8 мин. 53 сек.

У меня чушь получилась

Program Time;
var
h, m, s, h2, m2, s2, t1, t2, t3:Integer;
Begin
h:= s *3600;
m:= s *60;
s:= s *1;
h2:= s2 *3600;
m2:= s2 *60;
s2:= s2 *1;
t1:= (h2-h) div 3600;
t2:= (m2-m) div 60;
t3:= s2-s;
WriteLn('Введите время начала эксперимента в чч:мм:сс');
ReadLn(h, m, s);
WriteLn('Введите время окончания эксперимента в чч:мм:сс');
ReadLn(h2, m2, s2);
WriteLn('Эксперимент продолжался: ', t1, ' ч. ', t2, ' мин. ', t3, ' сек. ');
End.

[AntoshkaK]

Где ошибка?

[mifomen]

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

[AntoshkaK]

ну я исправил, но все равно не то
...t1:= (h2-h) div 3600;
t2:= (m2-m) div 60;
t3:= s2-s;
WriteLn('Эксперимент продолжался: ', t1, ' ч. ', t2, ' мин. ', t3, ' сек. ');
End.

[AntoshkaK]

Program Time;
var
h, m, s, h2, m2, s2, t1, t2, t3:Integer;
Begin
WriteLn('Введите время начала эксперимента в чч:мм:сс');
ReadLn(h, m, s);
h:= h * 3600;
m:= m * 60;
s:= s *1;
WriteLn('Введите время окончания эксперимента в чч:мм:сс');
ReadLn(h2, m2, s2);
h2:= h2 * 3600;
m2:= m2 * 60;
s2:= s2 *1;
t1:= (h2-h) div 3600;
t2:= (m2-m) div 60;
t3:= s2-s;
WriteLn('Эксперимент продолжался: ', t1, ' ч. ', t2, ' мин. ', t3, ' сек. ');
End.