Problema com exercício no VisuAlg

Opá galera, tô com problema em um exercício de algorítimo q tá sendo impossível deu resolver.
O enunciado do exercício é assim:

“Faça um aplicativo que leia o preço de 8 produtos. No final, mostre na tela
qual foi o maior e qual foi o menor preço digitados.”
Tipo, eu tô com problema na hora de armazenar o menor número digitado, pq toda vezes, ele substitui o Menor número por outro menor, tipo ele nunca deixa armazenado.

Repita
        Escreval (">>=======================<<")
        Escreval ("       > C A I X A <       ")
        Escreval ("---------------------------")
        Escreval ("Quer Cadrastra algum produto?")
        Escreval ("[1] Para Sim")
        Escreval ("[2] Para Não")
        Escreva  ("> ")
        Leia (R)
        LimpaTela
        Escolha R
                Caso 1
                     Rp <- 1
                     Enquanto (Rp <= 10) faca
                              Escreval (">>=======================<<")
                              Escreval ("       > CADASTRO <        ")
                              Escreval ("---------------------------")
                              Escreval ("Preço Do Produto: ")
                              Escreva ("> ")
                              Leia (Pd)
                              LimpaTela
                              Se (Pd > Mp) entao
                                 Mp <- Pd
                              Senao
                                   Mep <- Pd
                              FimSe
                              Se (Mep < MenorP) entao
                                 MenorP <- Mep
                              FimSe
                              Rp <- Rp + 1
                     FimEnquanto
                Caso 2
                     Escreval (">>=======================<<")
                     Escreval ("Saindo...")
        FimEscolha
  Ate (R = "2")

Peço pfv q alguém me ajude a encontra o problema