[Resolvido] melhorar esse algoritmo

Boa tarde, me ajudem a melhorar esse algoritmo

a proposta é a seguinte:

A pessoa pessa em um dos seguintes animais: Leão; Cavalo; Homem; Macaco; Morcego; Baleia; Avestruz; Pinguim; Pato; Águia; Tartaruga; Crocodilo; Cobra;

Atraves de pergutas você chega ao animal q ela pensou.

ex:

• É mamífero? Sim.
• É quadrúpede? Sim.
• É carnívoro? Não.
• É herbívoro? Sim.
• Então o animal escolhido foi o CAVALO

meu código

var
r : inteiro
inicio
// Seção de Comandos
escreval("Escolha um dos animais abaixo: ")
escreval("LEAO, CAVALO, HOMEM, MACACO, MORCEGO, BALEIA")
escreval("AVESTRUZ, PINGUIM, PATO, AGUIA")
escreval("TARTARUGA, CROCODILO, COBRA")
escreval("Responda as perguntas utilizando a marcação numerica correspondente a sua escolha: ")
escreval("")
escreval("O animal que você escolheu é: ")

escreval("(1)MAMÍFERO (2)AVE (3)RÉPTIL")
leia(r)
se r = 1 entao
escreval("(1)QUADRÚPEDE (2)BÍPEDE (3)VOADOR (4)AQUÁTICO")
leia(r)
se r = 1 entao
escreval("(1)CARNÍVORO (2)HERBÍVORO")
leia(r)
se r = 1 entao
escreval("O animal escolhido foi: LEÃO")
senao
se r = 2 entao
escreval("O animal escolhido foi: CAVALO")
fimse
fimse
senao
se r = 2 entao
escreval("(1)ONÍVORO (2)FRUTIVORO")
leia(r)
se r = 1 entao
escreval("O animal escolhido foi: HOMEM")
senao
se r = 2 entao
escreval("O animal escolhido foi: MACACO")
fimse
fimse
senao
se r = 3 entao
escreval("O animal escolhido foi: MORCEGO")
senao
se r = 4 entao
escreval("O animal escolhido foi: BALEIA")
fimse
fimse
fimse
fimse
senao
se r = 2 entao
escreval("(1)NÃO VOADORA (2)NADADORA (3)DE RAPINA")
leia(r)
se r = 1 entao
escreval("(1)TROPICAL (2)POLAR")
leia(r)
se r = 1 entao
escreval("O animal escolhido foi: AVESTRUZ")
senao
se r = 2 entao
escreval("O animal escolhido foi: PINGUIM")
fimse
fimse
senao
se r = 2 entao
escreval("O animal escolhido foi: PATO")
senao
se r = 3 entao
escreval("O animal escolhido foi: ÁGUIA")
fimse
fimse
fimse
senao
se r = 3 entao
escreval("(1)COM CASCO (2)CARNÍVORO (3)SEM PATAS")
leia(r)
se r = 1 entao
escreval("O animal escolhido foi: TARTARUGA")
senao
se r = 2 entao
escreval("O animal escolhido foi: CROCODILO")
senao
se r = 3 entao
escreval("O animal escolhido foi: COBRA")
fimse
fimse
fimse
fimse
fimse
fimse
fimalgoritmo

Dúvidas:

1) tem como fazer usando

escolha(r)
caso 1 : escreval("(1)QUADRÚPEDE (2)BÍPEDE (3)VOADOR (4)AQUÁTICO")
leia(r)
escolha(r)
caso 1 : escreval("(1)CARNÍVORO (2)HERBÍVORO")
leia(r)
se r = 1 entao
...

Eu tentei mas nao deu certo, essa estrutura nao aceita um escolha dentro de outra?

Enfim como fazer pra reduzir o código?