program pascal konversi waktu ke detik

program konversi;
uses crt;
type jam=record
hh,mm,ss:integer;

end;
var
j:jam;
totaldetik:integer;
begin
clrscr;
write('masukan waktu :');readln(j.hh);
write('masukan waktu :');readln(j.mm);
write('masukan waktu :');readln(j.ss);

   totaldetik:=(j.hh*3600)+(j.mm*60)+j.ss;
   writeln('j.hh=',totaldetik);
   writeln('j.mm=',totaldetik);
   writeln('j.ss=',totaldetik);
   readln
  
   end.