Kaiqueandrr

Boa tarde pessoal, tudo bem ? Podem me ajudar com um exercício que estou meio enrolado aqui, eu particularmente consegui fazer as letras A, B e C, funcionarem só que testei com outras condições de parada, porém a condição de parada que sugere no exercício está em loop infinito, e também não estou conseguindo desenvolver nem a D e E, podem me ajudar ? Segue código e o anexo do exercicio. Algoritmo "TRABALHO" // Tipo regproduto = registro nome:caracter codigo:inteiro quantidade:caracter parada:caracter preco:real fimregistro Var produto: regproduto valor:real i:inteiro total:real parada:inteiro a, b:inteiro c1, c2:real nomemaior, nomemenor:caracter totalprodutos:inteiro soma:real // vetcod:vetor [1..5] de produto Inicio a<-0 b<-0 c1<-0 c2<-100.000 valor<- 0 totalprodutos<-0 i<- 0 parada<- 0 enquanto (parada <> "FIM") faca escreva("Digite nome do produto:") leia(produto.nome) escreva("Digite o código do produto :") leia(produto.codigo) escreva("Digite a quantidade do produto :") leia(produto.quantidade) escreva("Digite o preço produto :") leia(produto.preco) //A se (produto.preco > 10.00) entao a<- a + 1 fimse //B se(produto.preco > 50.00) e (produto.preco <= 100.00) entao soma<- soma + produto.preco b<- b + 1 fimse //C - Mais caro. se(produto.preco > c1) entao c1<- produto.preco nomemaior<- produto.nome fimse // C - Mais barato. se(produto.preco < c2) entao c2<- produto.preco nomemenor<- produto.nome fimse // D se (produto.quantidade < 20) entao vetcod[i]<- produto.codigo fimse //E totalprodutos<- totalprodutos + produto.quantidade escreva("Digite FIM para finalizar os cadastros e 1 para continuar:") leia(parada) escreval(" ") fimenquanto escreval("A quantidade de produtos que custam acima de R$10,00 é igual a ",a," produtos.") escreval("A média de preço dos produtos que custam entre R$ 50,00 e R$ 100,00 é igual a: ",soma/b) escreval("O produto mais caro é o ",nomemaior," e o mais barato é o ",nomemenor) escreval("A quantidade total de produtos em estoque é de ",totalprodutos," produtos.") Fimalgoritmo Obs: sou iniciante.