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

Var n,h,m,s:int32;
begin
write('n = ');
readln(n);
h:=n div 3600;
m:=(n-h*3600) div 60;
s:=n mod 60;
writeln('h = ',h,' m = ',m,' s = ',s);
end.

Пример:
n = 55198
h = 15 m = 19 s = 58

В минуте 60 секунд. 
1) Разделить число на 3600.Получим .целое число означает текущий час.
Если  из задонного числа вычесть  получившееся целое число умноженное на 3600 получим число секунд в текущих  минутах.
2)это число необходимо разделить на 60. Целое число будет означать текущую минуту.
3) вычитаем из оставшегося числа число минут умноженное на 60 получим текущую секунду.

Например
Задано число 66276.

часов.
    18 * 3600 = 64800
    66276 - 64800 = 1476
минуты.
     24 * 60 = 1440
     1476 -1440 = 36

ответ: 18 часов , 24 минуты, 36 секунд.