hangman game turing

[Skxox]

var pig : string
var cow : string
var rooster : string
var chicken : string
var hen : string
var horse : string
var donkey : string
var dog : string
var cat : string
var piglette : string
var wordpicker : int
var bodyparts : int := 0


const VOWELS : string := "AEIOUaeiou"
const CONSONANTS : string := "BCDFGHJKLMNPQRSTVWXYZbcdfghjklmnpqrstvwxyz"

var Correctword : string := ""
var word : string := ""
var letter : string := ""

randint (wordpicker, 1, 10)
if wordpicker = 1 then
Correctword = "pig"
elsif wordpicker = 2 then
Correctword = "cow"
elsif wordpicker = 3 then
Correctword = "rooster"
elsif wordpicker = 4 then
Correctword = "chicken"
elsif wordpicker = 5 then
Correctword = "hen"
elsif wordpicker = 6 then
Correctword = "horse"
elsif wordpicker = 7 then
Correctword = "donkey"
elsif wordpicker = 8 then
Correctword = "dog"
elsif wordpicker = 9 then
Correctword = "cat"
else
Correctword = "piglette"
end if

put " _ stands for a consonant"
put " * stands for a vowel "
put skip

loop

for i : 1 .. length (Correctword)


if index (letter, Correctword (i)) not= 0 then
word := word + Correctword (i)
cls
put skip
elsif index (CONSONANTS, Correctword (i)) not= 0 then

word := word + "-"
elsif index (VOWELS, Correctword (i)) not= 0 then
word := word + "*"

else

word := word + Correctword (i)

end if


end for

put " the word to guess is ", word

if word = Correctword then
exit








if bodyparts = 1 then
%Draws the head
Draw.Oval (125, 215, 25, 25, 255)
elsif bodyparts = 2 then
%draws body
drawline (125, 190, 125, 110, 255)
elsif bodyparts = 3 then
%draws arms
drawline (125, 185, 100, 120, 255) %left arm
elsif bodyparts = 4 then
drawline (125, 185, 150, 120, 255) %right arm
elsif bodyparts = 5 then
%draws legs
drawline (125, 110, 100, 60, 255) %left leg
elsif bodyparts = 6 then
drawline (125, 110, 150, 60, 255) %right leg
end if











end if






var guess : string
put "please enter your guess " ..
get guess

letter := letter + guess
word := " "

end loop

put "CONGRATS! you guessed it"

put skip, "thanks for playing"









can someone help me finish this please