Определить в часах, минутах, секундах длину интервала времени, заданного отметками в часах, минутах и секундах

var h1,m1,s1,h2,m2,s2,v1,v2,rs,h,m,s:integer;
begin
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 h2<h1 then h2:=h2+24;//если второе время меньше
//переведем время в секунды
v1:=s1+m1*60+h1*3600;
v2:=s2+m2*60+h2*3600;
rs:=v2-v1;//разность
//вычислим время
h:=rs div 3600;
m:=rs div 60 mod 60;
s:=rs mod 60;
write(h,' чс. ',m,' мн. ',s,' ск.')
end.

Program TIME;
Uses GraphABC;
Var
   BegH, BegMin, BegSec, EndH, EndMin, EndSec : Real;
   Hb, He, H, HMin, HSec : Real;
   
Begin
 
Writeln('Введите время начала эксперимента в часах, минутах и секундах:');
Writeln('Часовой формат суток = 24');
 
   Readln(BegH, BegMin, BegSec);
   
      BegMin:= BegMin / 60;
      BegSec:= BegSec / 3600;
       
 
        Hb:= BegH+BegMin+BegSec;
        
        {Writeln (Hb);}
 
        Writeln ('');
 
 
   
Writeln('Введите время окончания эксперимента в часах, минутах и секундах:');
Writeln('Часовой формат суток = 24');
 
   Readln(EndH, EndMin, EndSec);
  
 
 
      EndMin:= EndMin / 60; 
      EndSec:= EndSec / 3600;
 
        He:= EndH+EndMin+EndSec;
        
        {Writeln (He);}
        
        Writeln ('');
                
        H:= He - Hb;
        
        {Writeln (H);}
        
        HMin:= H * 60;
        HSec:= (HMin-Int(HMin)) * 60;
        
        
Writeln ('');
        
Writeln('Эксперимент продолжался: ', Int(H) :3,' часов', Int(HMin) :3, ' минут', Round(HSec) :5, ' секунд' );
 
End.