Palabra secreta

PROBLEMA
Necesitamos un algoritmo que lea palabras hasta encontrar la palabra secreta "vampiro"

ALGORITMO
Entradas: Alfanumerico palabra

INICIO
   Mientras  palabra sea diferente de "vampiro" hacer
         Imprimir "Introduce una palabra"
         Leer palabra
   Fin mientras
   Imprimir "Ya la encontro"
FIN

PSEUDOCODIGO
Class Palabra_secreta
         // Declaraciones
         Cadena: palabra
         // Procedimiento
         Main
             While (palabra != "vampiro")
                  Print "Introduce una palabra"
                  Scan palabra
              End_while
              Print "Ya la encontro"
         End_main