Soma divisores: este programa está com erro

apenas o primeiro bloco está correto

algoritmo "somadivisores"
// Função :
// Autor :
// Data : 13/10/2014
// Seção de Declarações
var
cont, num, divnum: inteiro
somadiv, total: real
inicio
// Seção de Comandos
cont<-1
enquanto cont<=5 faca
escreva("Digite um número inteiro e positivo: ")
leia (num)
para divnum de 1 ate num passo 1 faca
se num mod divnum = 0 entao
escreval ("O seu divisor é: ", divnum)
somadiv<-(somadiv+divnum)
total<-somadiv-num
fimse
fimpara
cont<-cont+1
escreval ("A soma dos seus divisores é:", total)
escreval()
fimenquanto
fimalgoritmo

algoritmo "somadivisores"
// Função : enquanto
// Autor : Willians Miyabara
// Data : 23/02/2015
// Seção de Declarações
var
cont, num, divnum: inteiro
somadiv, total: real
inicio
// Seção de Comandos
cont<-1
somadiv<-0 // Atribui o valor 0 para a variavel somadiv
enquanto cont<=5 faca
        somadiv<-0 // Após apresentar o resultado do bloco anterior tem que zerar a variavel.
        escreva("Digite um número inteiro e positivo: ")
        leia (num)
        para divnum de 1 ate num passo 1 faca
             se num mod divnum = 0 entao
                escreval ("O seu divisor é: ", divnum)
                somadiv<-(somadiv+divnum)
                total<-somadiv-num
             fimse
        fimpara
        cont<-cont+1
        escreval ("A soma dos seus divisores é:", total)
        escreval()
fimenquanto

fimalgoritmo