[Resolvido] Algoritmo visualg

Alguém pode me ajudar a resolver este exercício da algoritmo usando o visualg?

Faça um algoritmo que leia especie, peso , tamanho e garantir tamanho (P, M, G, GG) de 1000 aniamis o algoritmo deve imprimir.

a) o animal menos leve

b.) a quantidades de leões

c) a média dos pessos a quantidade de golfinhos de tamanho GG

eu so conseguir fazer isso?

lembrando que alinguagem é do visualg

var
especie: literal
tamanho: literal
peso: inteiro
i: inteiro
animal_maior: literal
qt_leoes, qt_golfinhos:inteiro
animal_menos_leve:real
media_peso: real

inicio
qt_leoes <- 0
qt_golfinhos <- 0
media_peso <- 0

escreval (" digite o 1º animal")
leia (especie)
escreval (" digite o peso do 1º animal")
leia (peso)
repita
escreval ("digite o tamanho do 1º animal( P - pequeno, M - medio, G - grande, GG - extra grande")
leia (tamanho)
ate (( tamanho = "P")ou(tamanho = "M")ou(tamanho = "G")ou(tamanho = "GG"))
se ( tamanho = "P" ) e ( peso < 100 ) entao
tamanho <- peso + 1
fimse
se ( ( tamanho = "M" ) e ( peso < 100 ) ) entao
qt_leoes <- qt_golfinhos + 1
fimse
animal_menos_leve <- peso
animal_maior <- tamanho

para i de 2 ate 5 faca
escreval("Digite o nome do ", i, "° animal" )
leia(especie)
escreval("Digite o peso do ", i, "° animal" )
leia(peso)
repita
escreval("Digite o tamanho do ", i, "° animal ( P - pequeno, M - medio, G - grande, GG - extra grande")
leia(tamanho)
ate ( ( tamanho = "P")ou(tamanho = "M")ou(tamanho = "G")ou(tamanho = "GG"))

se ( ( tamanho = "G" ) e ( peso < 100 ) ) entao
qt_leoes <- qt_leoes + 1
fimse
se ( ( tamanho = "GG" ) e ( peso < 100 ) ) entao
qt_golfinhos <- qt_golfinhos + 1
fimse

se ( animal_menos_leve >peso ) entao
peso <- especie

fimse

fimpara
escreval("o animal nenos leve é: ", animal_menos_leve )
escreval("A quantidade de leoes é: ", qt_leoes )
escreval("A media dos pesos é: ", media_peso )
escreval("A qt_golfinos de tamanho GG é: ", qt_golfinhos)

fimalgoritmo