var letter, word : string
var chars, q : int := 0
var words : array 1 .. 5 of string := init ("One", "Two", "Three", "Four", "Five")
word := words (Rand.Int (1, 5))
locate (6, 1)
put word

var WordArray : array 1 .. length (word) of string
for a : 1 .. length (word)
    WordArray (a) := "_"
end for

loop
    for a : 1 .. length (word)
        locate (3, a * 5)
        put WordArray (a) ..
    end for

    locate (1, 1)
    get letter

    if index (word, letter) >= 0 then
        locate (6, 5 + chars)
        put letter
        chars := chars + 2
    end if

    % put letter

    for b : 1 .. length (word)
        if letter = word (b) then
            WordArray (b) := letter
        end if
    end for
end loop