var word : string := ""
var ch : string(1)
var count : int := 0
var last : string := ""
loop
    put "Enter a word"
    get word
    put "Enter a character"
    getch(ch)
    last := last + ch
    for i : 1 .. last
        if ch = last(i) then
            put "The character has been used before"
        end if
    end for
    for i : 1 .. length(word)
        if ch = word(i) then
            count := count + 1
        end if
    end for
    put "The character is in the word ", count, " times"
end loop

var text : string
var ch : string (1) := ""
var guesses : string := ""
put "Enter text:"
get text
loop
    getch (ch)

    if index (guesses, ch) = 0 then
        guesses += ch
        if index (text, ch) not= 0 then
            put "It is in the word"
        else
            put "It is not in the word"
        end if
    else
        put "You have guessed that already"
    end if
end loop