Convert Detik ke Jam

program ConvertJam;
uses crt;
type jam = record
h : integer;
m : integer;
s : integer;
end;
var
J : jam;
jmh,sisa : integer ;
begin
clrscr;
write('Jumlah detik = ');
readln(jmh);
J.h := jmh div 3600;
sisa := jmh mod 3600;
J.m := sisa div 60;
J.s := sisa mod 60;
write(J.h,':',J.m,':',J.s);
readln;
end.