Ошибка компиляции в программе

Domains
book_name,author,pub_house=string
file=f
Database
catalog(book_name,author)
Predicates
aut_book_name(book_name,author)
book_name_aut(book_name,author)
m(char)
menu
start
Clauses
aut_book_name(name,auth):- catalog(name,auth),!.
aut_book_name(_,"Нет сведений об авторе!").
book_name_aut(name,auth):-catalog(name,auth),!.
book_name_aut("Нет сведений о названии книги!",_).
 
menu:-
     clearwindow, 
     write("1 – Получение наименования книги по автору "),nl,
     write("2 — Получение автора по наименованию книги "),nl,
     write("3 — Добавление новой записи в книжный каталог."),nl, 
     write("4 — Изменение наименования книги"),nl, 
     write("5 — Удаление записи из книжного каталога"),nl,
     write("0 — Выйти"),nl,
     readchar(C), /* читаем символ с клавиатуры */ 
m(C). /* вызываем выполнение соответствующего пункта 
         меню */
m('1'):- 
       clearwindow, 
       write("Введите автора:"), nl, 
       readln(auth),
       aut_book_name(Name, auth), 
       write("Наименование книги: ",Name), 
       readchar(_), 
menu.
m('2'):- 
       clearwindow, 
       write("Введите наименование книги:"),nl,
       readln(Name),
       book_name_aut(Name, auth),
       write("Автор: ",auth),
       readchar(_),
       menu.
m('3'):- 
       clearwindow, 
       write("Введите наименование книги:"),nl,
       readln(Name),
       write("Введите автора:"),nl,
       readln(auth),
       assert(catalog(Name,auth)), 
                         /* добавляем факт во внутреннюю 
                            базу данных */
       menu.
m('4'):- 
       clearwindow, 
       write("Введите автора:"),nl,
       readln(auth),
       write("Введите новое название книги:"),nl,
       readln(Name),
       retract(catalog(_,auth)), 
                          /* удаляем устаревшую информацию 
                             из внутренней базы данных */
       assert(catalog(Name,auth)), 
                          /* добавляем новую информацию 
                             в  базу */
       menu.
m('5'):- 
       clearwindow, 
       write("Укажите наименование книги, запись о которой    нужно удалить из книжного каталога"), nl, 
       readln(Name), 
       retract(catalog(Name,_)), /* удаляем соответствующий 
                                   факт из внутренней базы 
                                   данных */
       menu.
m('0'):- 
save("catalog.ddb "), /* сохраняем  базу 
                        в файл */
retractall(_)./* удаляем все факты из внутренней 
                 базы данных */
m(_):- 
       menu. /* если пользователь по ошибке нажал клавишу, 
                отличную от тех, реакция на которые 
                предусмотрена, ничего плохого 
                не произойдет, будет отображено меню 
                еще раз */
start:-
       existfile("catalog.ddb"),!, /* если файл с 
                                     базой существует */
       consult("catalog.ddb"), /* загружаем факты во 
                                  внутреннюю базу данных */
       menu. /* вызываем меню */
start:-
       openwrite(f,"catalog.ddb"), 
                          /* если файла с 
                             базой не существует, создаем 
                             его */
       closefile(f),
       menu. /* вызываем меню */
GOAL /* раздел внутренней цели*/
Start