1.5 Time between two date points

program TimeBetweenTwoPoints;

Var
h1 : integer;
m1 : integer = 0;
s1 : integer = 0;
h2 : integer = 0;
m2 : integer = 0;
s2 : integer = 0;
hours : integer = 0;
minutes : integer = 0;
seconds : integer = 0;
sum: integer = 0;
a : integer = 0;
b : integer = 0;
c : integer = 0;

begin
 writeln('Enter the hour of the first date point: ');
 readln(h1);
 writeln('Enter the minutes of the first date point: ');
 readln(m1);
 writeln('Enter the seconds of the first date point: ');
 readln(s1);
 writeln('Enter the hour of the second date point: ');
 readln(h2);
 writeln('Enter the minutes of the second date point: ');
 readln(m2);
 writeln('Enter the seconds of the second date point: ');
 readln(s2);

 a:=s2+m2*60;
 b:=(s1+(m1*60)-3600)*(-1);
 sum:=a+b;

 if(sum=3600) then
    begin
    writeln('The difference is exactly one hour');
    end;
 if(sum>3600) then
    begin
    c:=sum-3600;
    hours:=sum div 3600;
    seconds:=c mod 60;
    minutes:=(sum-3600) div 60;
    writeln('The hours difference is: ');
    writeln(hours);
    writeln('The minutes difference is: ');
    writeln(minutes);
    writeln('The seconds difference is: ');
    writeln(seconds);
    end;
  if(sum<3600) then
    begin
    seconds:=sum mod 60;
    minutes:=sum div 60;
    writeln('The hours difference is: ');
    writeln(hours);
    writeln('The minutes difference is: ');
    writeln(minutes);
    writeln('The seconds difference is: ');
    writeln(seconds);
    end;


end.