algoritmo "sem nome"

var
palavras:vetor[1..3] de caracter
sorteio,i,qntCarac,verifica:inteiro
letra,palavraSorteada:caracter

inicio

palavras[1]:= "Casa"
palavras[2]:= "Rua"   //aqui estao as palavras armazenadas
palavras[3]:= "Boné"

sorteio:= randi(4)
se sorteio = 0 entao      //aqui faço o sorteio
   sorteio:= sorteio + 1
fimse

palavraSorteada:= palavras[sorteio] //captura a palavra sorteada e armazena
qntCarac:= compr(palavraSorteada)  //define o comprimento da palavra sorteada para impressao na tela dos "_"

para i de 1 ate qntCarac passo 1 faca
     escreva("_")
     escreva(" ")
fimpara

escreval()
escreval()
escreval("JOGO DA FORCA")
escreval("----------------------------")
escreval("Digite uma letra: ")
leia(letra)

verifica:= pos(letra,palavraSorteada) //verifica se a letra que o usuario digitou existe na palavra sorteada e define em numero sua posição
//agora preciso copiar a letra da posição especificada e realocar a mesma na posição junto com os demais "_" que substituem as letras enquanto nao foram digitadas pelo usuario


fimalgoritmo