Текущие показатели часов : m часов(0<=m<=23), n минут (0<=n<=59). Какое время будут показывать часы через p часов q минут r секунд? нужно только использовать div , mod — Pascal(Паскаль)

uses crt;
var
   n,m,p,q,r:integer;
begin
     write('минуты-');readln(n);
     write('часы-');readln(m);
     write('часов-');readln(p);
     write('минут-');readln(q);
     write('секунд-');readln(r);
     n:=(n*3600)+(m*60)+(p*3600)+(q*60)+r;
     p:=n div 3600;
     n:=n mod 3600;
     q:=n div 60;
     r:=n mod 60;
     if p>24 then p:=p-24;
write(p,':',q,':',r)
end.

uses crt;
var m,n,p,q,r,m1,n1:word;
begin
clrscr;
repeat
writeln('Введите показания часов часы и минуты:');
readln(m,n);
until(m in [0..23])and(n in [0..59]);
repeat
writeln('Введите добавленное время часы, минуты и секунды:');
readln(p,q,r);
until (q in [0..59])and(r in [0..59]);
n1:=(n+q) mod 60;
m1:=(m+p+(n+q) div 60)mod 24;
write('Новое время: ',m1,':',n1,':',r);
readln
end.