Tradutor de unidade de tempo: formato SS para HH:MM:SS

program MinHorSegAtravesDaIntroducaoDosSegundos;
var hor,seg,res: integer;
    min: shortint;
begin
writeln('Introduza o valor de segundos;');
readln(seg);

if (seg=3600) then
begin
   hor:= seg div 3600;
   res:= seg mod 3600;
   if (res>60) then
   begin
        min:= res div 60;
        seg:= res mod 60;
   end
   else
   begin
        min:=0;
        seg:=0;
   end
end
else
begin
     hor:=0;
     if (seg>=60) then
     begin
        min:= seg div 60;
        seg:= seg mod 60;
     end
     else
     begin
          min:= 0;
          seg:= seg;
     end;
end;
writeln('Segundos no formato h:m:s = ',hor,':',min,':',seg);
readln;
end.