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

var x0,y0,z0,q,x,y,z,s:integer;
begin
repeat
writeln('Введите показания часов часы, минуты и секунды:');
readln(x0,y0,z0);
until(x0 in [0..23])and(y0 in [0..59])and(z0 in [0..59]);
repeat
writeln('Введите добавленное время в секундах:');
readln(q);
until q>0;
s:=3600*x0+60*y0+z0+q;
z:=s mod 60;//секунды
y:=s div 60 mod 60;
x:=s div 3600 mod 24;
writeln('Время приземления:');
if x<10 then write('0',x,':') else write(x,':');
if y<10 then write('0',y,':')else write(y,':');
if z<10 then write('0',z) else write(z);
end.