programa para mostrar lucro

Bom dia, fiz esse algoritmo, queria opnioes se tá escrito certo, se a logica tá bem desenvolvida ou nao?

O exercicio pedia o seguinte:

"Faça um algoritmo que leia o nome. o custo e o preço de 50 produtos. Ao final deverá relacionar os produtos que:

a)tem lucro menor que 10%

b)tem lucro entre 10% e 30%

c)tem lucro maior que 30% "

algoritmo "lucro"
// Função : comparar lucro
// Autor : ULFreitas
// Data : 22/6/2011
// Seção de Declarações
var
nome : vetor[1..5] de caracter
lucro, custo, preco : vetor[1..5] de real
i : inteiro
inicio
// Seção de Comandos
para i de 1 ate 5 faca
escreval("Nome do produto")
leia(nome[i])
escreval("Preço do produto")
leia(preco[i])
escreval("Custo do produto")
leia(custo[i])
lucro[i] <- preco[i] - custo[i]
lucro[i] <- (lucro[i] * 100) / preco[i]
fimpara
escreval("Produtos que tiveram lucro menor que 10%")
para i de 1 ate 5 faca
se lucro[i] < 10 entao
escreval(nome[i])
fimse
fimpara
escreval("Produtos que tiveram lucro entre 10% e 30%")
para i de 1 ate 5 faca
se (lucro[i] >= 10) e (lucro[i] <= 30) entao
escreval(nome[i])
fimse
fimpara
escreval("Produtos que tiveram lucro maior que 30%")
para i de 1 ate 5 faca
se lucro[i] > 30 entao
escreval(nome[i])
fimse
fimpara
fimalgoritmo

precisa melhorar?

Obrigado