Fimalgoritmo não encontrado?(VisuAlg)

[MosquitoMortal 0]

Bom dia pessoal, hoje comecei a desenvolver um pequeno algorítmo só para praticar, e a minha idéia foi fazer um "Dice Roller"(um "Rolador de Dados"), e o algorítmo ficou assim:

algoritmo "RPG Dice Roller"
// Função : Rolar dados
// Autor : MosquitoMortal
// Data : 5/5/2015
// Seção de Declarações
var
Tdado, Q1, QD1, Q2, QD2, Q3, QD3, Q4, QD4, Q5, QD5, Q6, QD6 :Inteiro
inicio
escreval("RPG Dice Roller")
escreval("Escolha o tipo de dado que deseja rolar:")
escreval("1)D20")
escreval("2)D12")
escreval("3)D10")
escreval("4)D8")
escreval("5)D6")
escreval("6)D4")
leia(Tdado)
escreval("Qual a quantidade de dados que deseja rolar?")
escolha Tdado
caso 1
   leia(Q1)
   QD1<-0
   enquanto QD1<>Q1 faca
      escreval("D20:",int(rand*19+1))
      QD1<-QD1+1
   fimenquanto
caso 2
   leia(Q2)
   QD2<-0
   enquanto QD2<>Q2 faca
      escreval("D12:",int(rand*11+1))
      QD2<-QD2+1
   fimenquanto
caso 3
   leia(Q3)
   QD3<-0
   enquanto QD3<>Q3 faca
      escreval("D10:",int(rand*9+1))
      QD3<-QD3+1
   fimenquanto
caso 4
   leia(Q4)
   QD4<-0
   enquanto QD4<>Q4 faca
      escreval("D8:",int(rand*7+1))
      QD1<-QD1+1
   fimenquanto
caso 5
   leia(Q5)
   QD5<-0
   enquanto QD5<>Q5 faca
      escreval("D6:",int(rand*5+1))
      QD5<-QD5+1
   fimenquanto
caso 6
   leia(Q6)
   QD6<-0
   enquanto QD6<>Q6 faca
      escreval("D4:",int(rand*3+1))
      QD6<-QD6+1
   fimenquanto
outrocaso
escreval("Comando inválido!")
fimalgoritmo

Não estou muito acostumado a fazer algorítmos, mas a meu ver está tudo certo, porém quando executo o algorítmo o VisuAlg diz "Esperava encontar fimalgoritmo na linha 66" (o meu fimalgoritmo está na 64). Ainda por cima, quando escolho 4 (o "D8") ele gera infinitos números. Oque estou fazendo de errado?

[KhaosDoctor 242]

Acredito que você não fechou o "escolha"