hitung selisih waktu

program selisih_jam;
uses wincrt;
type jam = record
hh : longint;
mm : longint;
ss : longint;
end;
var
j1, j2, j3 : jam; {j1 -> jam awal, j2 -> jam akhir, j3 -> j2 - j1 }
totaldetik1, totaldetik2, selisihdetik : integer;
sisa : integer; {untuk bantu nampung sisa pembagian}
begin
writeln ('PROGRAM HITUNG SELISIH WAKTU');
writeln ('====================================');
writeln ('Ketentuan : Waktu akhir lebih besar dari waktu awal');
writeln;
write ('Jam Awal: '); read (j1.hh);
write ('Menit Awal: '); read (j1.mm);
write ('Detik Awal: '); read (j1.ss);
writeln;
write ('Jam Akhir: '); read (j2.hh);
write ('Menit Akhir: '); read (j2.mm);
write ('Detik Akhir: '); read (j2.ss);

{Sekarang konversi masing masing jam ke total detik}
totaldetik1 := (j1.hh * 3600) + (j1.mm * 60) + j1.ss;
totaldetik2 := (j2.hh * 3600) + (j2.mm * 60) + j2.ss;

{Sekarang hitung selisih total detik}
selisihdetik := totaldetik2 - totaldetik1;

{Sekarang mengkonversi selisih detik ke dalam jam, menit dan detik}
j3.hh := selisihdetik div 3600;
sisa := selisihdetik mod 3600;
j3.mm := sisa div 60;
j3.ss := sisa mod 60;
writeln;
writeln('Durasi waktunya adalah: ', j3.hh, ':', j3.mm, ':', j3.ss);
end.