Создать программу в паскале для того чтобы решать "с полуночи до настоящего времени а секунд,определить время которое показывают часы

Program chik;
var a,h:integer;
begin
read(a);
h:=(a div 3600)mod 24;
if(h>12)then begin
writeln(h,' часов по электронной или ',h-12,' часов по стрелки');
end;
if(h>0)and(h<13)then writeln(h,'часов');
if(h=0)then writeln('полночь');
end.