Определить время, которое прошло от времени t1 до t2, где t1 и t2 задаются в часах, минутах и секундах — Pascal(Паскаль)

uses crt;
var h1,m1,s1,h2,m2,s2,rh,rm,rs,ps,pm:shortint;
begin
clrscr;
repeat
writeln('Введите первое время, часы минуты секунды:');
readln(h1,m1,s1);
until(h1 in [0..23])and(m1 in [0..59])and(s1 in [0..59]);
repeat
writeln('Введите второе время, часы минуты секунды:');
readln(h2,m2,s2);
until(h2 in [0..23])and(m2 in [0..59])and(s2 in [0..59]);
if s2>=s1 then
 begin
  rs:=s2-s1;
  ps:=0;
 end
else
 begin
  rs:=60+s2-s1;
  ps:=1;
 end;
if m2-ps>=m1 then
 begin
  rm:=m2-ps-m1;
  pm:=0;
 end
else
 begin
  rm:=60+m2-ps-m1;
  pm:=1;
 end;
if h2-pm>=h1 then rh:=h2-pm-h1
else rh:=24+h2-pm-h1;
write('Разница во времени=',rh,'ч. ',rm,'мин. ',rs,'сек');
readln
end.