[Delphi] Div / Mod - Zeiten addieren

program zeiten_prozedur_2;

{$APPTYPE CONSOLE}

uses
 SysUtils;

var
 m_sum, m_uebertrag, s_sum, s1, s2, m1, m2, d_sum: integer;

procedure add_times(s1, m1, s2, m2: integer; var s_sum, m_sum,d_sum: integer);
begin

 m_sum := (m1 + m2) mod 60;
 m_uebertrag := (m1 + m2) div 60;
 s_sum := s1 + s2 + m_uebertrag;
 d_sum := s_sum div 24;

end;

begin
 write('Gib die Stunden der ersten Zeit ein: ');
 readln(s1);
 Write('Gib die Minuten der ersten Zeit ein: ');
 readln(m1);
 write('Gib die Stunden der zweiten Zeit ein: ');
 readln(s2);
 Write('Gib die Minuten der zweiten Zeit ein: ');
 readln(m2);
 add_times(s1, m1, s2, m2, s_sum, m_sum,d_sum);
 write('Es sind insgesamt ',d_sum,' Tage,', s_sum, ' Stunden und ', m_sum, ' Minuten');
 readln;
end.