Konversi Detik ke dalam Hari, Jam & Menit

uses crt;
const
satuhari = 60 * 60 * 24 ;
var
hari, jam, menit, detik, detik2:longint;
ulang:char;
begin
repeat
clrscr;
writeln('==================================================');
writeln(' * Program Konversi Detik ke Hari, Jam dan menit *');
writeln('==================================================');
write('Masukkan waktu ke dalam Detik : ');readln(detik2);
writeln('------- ',detik2,' Detik terdiri dari : ');
hari   := detik2 div satuhari;
detik2 := detik2 - hari * satuhari;
jam    := detik2 div 3600 ;
detik2 := detik2 - jam * 3600;
menit  := detik2 div 60 ;
detik  := detik2 - menit * 60 ;
writeln ('------- ',hari,' Hari ');
writeln ('------- ',jam,' Jam ');
writeln ('------- ',menit,' Menit ');
writeln ('------- ',detik,' Detik ');
write('Mau mencoba lagi ? (y/n) : ');readln(ulang);
until (ulang = 'n') or (ulang = 'N');
writeln;
end.