Segundos para horas

Program s_to_h ;
var
segundos, horas, minutos: integer;
Begin
writeln('Digite o valor inteiro em segundos:');
readln(segundos);
horas:= segundos div 3600;
minutos:= (segundos - (horas * 3600)) div 60;
segundos:= segundos - (horas * 3600) - (minutos * 60);
writeln('O formato padrão em horas é: ', horas,':', minutos,':', segundos,'.');
readln;
End.