Caixa eletrônico

Estou com uma dificuldade em implementar o seguinte algoritmo:

Em que o usuário digita um valor qualquer valor de saque e o programa retorna a quentidade de notas. As notas disponíveis serão as de 1, 5, 10, 50 e 100 reais

Segue a minha tentativa

var
valor:inteiro
notas100,notas50,notas10, notas1, notas5: inteiro
inicio
// Seção de Comandos
notas100 <- 0
notas50 <- 0
notas10 <- 0
notas5 <- 0
notas1 <- 0

escreval("Entre com o valor ser sacado entre 10 e 600")
leia(valor)

enquanto (valor > 100) faca

notas100 <- notas100 + 1
valor <- valor - 100

fimenquanto

enquanto (valor > 50) faca

notas50 <- notas50 + 1
valor <- valor - 50

fimenquanto

enquanto (valor > 10) faca

notas10 <- notas10 + 1
valor <- valor - 10

fimenquanto

enquanto (valor > 5) faca

notas5 <- notas5 + 1
valor <- valor - 5

fimenquanto

enquanto (valor > 1) faca

notas1 <- notas1 + 1
valor <- valor - 1

fimenquanto

escreval("Notas de 100: ",notas100)
escreval("Notas de 50: ",notas50)
escreval("Notas de 10: ",notas10)
escreval("Notas de 5: ",notas5)
escreval("Notas de 1: ",notas1)

fimalgoritmo