Ошибка в программе Prolog 7.5

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

Программа должна выводить список имен, список возрастов и в конце средний возраст персон. Но при компилирование выходит 4 ошибки. Выполнял всё по учебнику. Также есть программа.

Решение задачи: «Ошибка в программе Prolog 7.5»

textual
                            Листинг программы 
                        
 
                        
                          
                    
% Copyright
 
 
implement main
    open core, console, person
 
clauses
    run() :-
        init(),
        write("Список студентов "),nl,
        L1 = [ Name ||person:: person(Name, _)], % Получить список
        write(_N1),nl,nl,
        write("Их возраст"),nl,
        L2 = [ Age || person:: person(_, Age)], % Получить список возрастов
        write(L1),nl,nl,
        % Получить из списка L2 сумму возрастов Sum и число студентов N
        sumlist(L2, Sum, N),
        Ave = Sum/N, % Средний возраст студентов
        write("Средний возраст=", Ave),nl,nl,
        write("Нажмите Enter"),
        _= readLine().
end implement main
 
goal
    mainExe::run(main::run).