saida de um algoritmo

Olá novamente, estou com um problema na penultima questão da minha lista de exercícios, ela diz o seguinte:

"O Sr. Manoel Joaquim expandiu seus negócios para além dos negócios de 1,99 e agora possui uma loja de conveniências. Faça um programa que implemente uma caixa registradora rudimentar. O programa deverá receber um número desconhecido de valores referentes aos preços das mercadorias. Um valor zero deve ser informado pelo operador para indicar o final da compra. O programa deve então mostrar o total da compra e perguntar o valor em dinheiro que o cliente forneceu, para então calcular e mostrar o valor do troco. Após esta operação, o programa deverá voltar ao ponto inicial, para registrar a próxima compra. A saída deve ser conforme o exemplo abaixo:"

Lojas Tabajara
Produto 1: R$ 2.20
Produto 2: R$ 5.80
Produto 3: R$ 0

Total: R$ 9.00
Dinheiro: R$ 20.00
Troco: R$ 11.00

Então ai que está o meu problema, as devidas operações eu já fiz, o problema e que na saida eu não estou conseguindo resgatar o preço dos produtos digitados, os produtos ficam com os valores zerados, como eu faria pra preservar os valores que forem sendo digitados pelo o usuário?

segue abaixo o meu código até o momento:

algoritmo "Questão 19"
// Função :
// Autor : Douglas Nickson
// Data : 18/01/2016
// Seção de Declarações
var

valor, total, troco, pago: real
produtos, count:inteiro
zero: logico

inicio
// Seção de Comandos
zero <- VERDADEIRO
count <- 0

enquanto (zero = VERDADEIRO) faca

escreva("Por favor, digite o valor do produto: ")
leia(valor)

se (valor <> 0) entao
produtos <- produtos + 1
total <- total + valor
escreval("Produto", produtos,": R$",valor:1:2)
fimse

se (valor = 0) entao
zero <- FALSO

escreval("Valor total da compra: R$", total:1:2)
escreval("Informe o valor pago pelo cliente: ")
leia(pago)

se (pago >= total) entao
troco <- pago - total
senao
escreva("O Valor pago deve ser maior ou igual ao total da compra: ", total:1:2," :")
escreval
leia(pago)
troco <- pago - total
fimse
fimse

fimenquanto

escreval("----------------------------------------")
escreval(" LOJAS TABAJARA ")
escreval("----------------------------------------")
escreval
para produtos de 1 ate produtos passo 1 faca
escreval("Produto(s)",produtos,": R$", valor:1:2)
fimpara
escreval
escreval("Total: R$", total)
escreval("Dinheiro: R$", pago)
escreval("Troco: R$", troco)
escreval
escreval("----------------------------------------")
fimalgoritmo