Задача про семью - Prolog

Формулировка задачи:

Здравствуйте. Помогите пожалуйста найти ошибку в коде. (ввести нужно родителей и детей и узнать кто чей родитель при поиске) в программе Visual Prolog 7.3

                    Листинг программы
                
 
                        
                          
                    
implement main
    open core, console
 
class facts
    родитель:(string,string).
 
clauses
    родитель("Иван", "Алексей").
    родитель("Мария", "Анна").
    родитель("Иван", "Анна").
 
clauses
    run():-console::init(), родитель("Иван",Кто),write(Кто),nl,fail.
    run():-_=readChar().
 
end implement main
 
goal
    mainExe::run(main::run).

Решение задачи: «Задача про семью»

textual
                            Листинг программы 
                        
constants
    className = "main".
    classVersion = "".
 
clauses
    classInfo(className, classVersion).