somando as horas

olá amigos queria muito a ajuda de vocês, estou com um probleminha, pois preciso inserir dois tempos e soma-los ex: 2 horas + 30 minutos + 20 segundos

2 horas + 30 minutos + 20 segundos

total= 5 horas e 40 segundos, se vocês estão me entendendo é que as horas nao pode passar de 24 horas e os minutos quando dar 61 minutos o 1 pular para horas a mesma coisa dos segundos, os segundos pular para os minutos, eu fiz assim: mais nao consigo fazer a troca por favor me ajudem

algoritmo "semnome"
// Função :
// Autor :
// Data : 10/4/2010
// Seção de Declarações
var
h1,h2,m1,m2,s1,s2:inteiro
soma,soma1,soma2,total,cont:inteiro
inicio
// Seção de Comandos
escreva("Informe a 1ª hora:")
leia(h1)
escreva("Informe o 1º minuto:")
leia(m1)
escreva("Informe o 1º segundo:")
leia(s1)
escreval()
escreval("INFORME AGORA OUTRO TEMPO")
escreval()
escreva("Informe a 2ª hora:")
leia(h2)
escreva("Informe o 2º minuto:")
leia(m2)
escreva("Informe o 2º segundo:")
leia(s2)
cont<-1
soma<-h1+h2
soma1<-m1+m2
soma2<-s1+s2
escreval()
cont<-0

escreva("o tempo é:",soma,"hora",soma1,"minutos",soma2,"segundos")

fimalgoritmo