Problemas com divisores

fala pessoal, blza?
alguém pode me ajudar ... é q eu fiz um algoritmo q calculasse qtos divisores ele tem. até aí td certo, mas eu qro ver quais são os divisores e não estou conseguindo pôr na tela. por exemplo: d(10) = {1,2,5 e 10}
eis o codigo:

algoritmo " divisores"
var
n, i, cont: inteiro
resp: caracter
inicio
cont := 0
resp := "s"
enquanto resp="s" faca
escreva ("Digite o valor de n: ")
leia (n)
para i de 1 ate n faca
se (n % i = 0) entao
cont := cont + 1
fimse
fimpara
escreval ("O número ", n, " tem", cont, " divisores")
escreva ("Deseja continuar: s/n? ")
leia(resp)
limpatela
fimenquanto
fimalgoritmo

aguardo respostas
abs!!!

inicio
leia (n)
para i de 1 ate n faca
se (N MOD I = 0) entao
Escreval (i)
fimse
fimpara
escreval ("O número ", n, " tem", i, " divisores")
fimalgoritmo