Написать программу телефонный справочник - Prolog

DOMAINS 
name, number = String  
file=f 
DATABASE 
phone(name, number)
PREDICATES 
name_phone(name, number)
phone_name(name, number)
m(char)
menu 
start 
CLAUSES 
name_phone(Name,Phone):-
phone(Name,Phone)!.
name_phone(_,"Нет информации о телефонном номере"). 
phone_name(Name,Phone):-
phone(Name,Phone).
phone_name("Нет информации о владельце телефона",_). 
menu:-
clearwindow, 
write("1 - Получение телефонного номера по фамилии "), nl,
write("2 - Получение фамилии абонента по номеру телефона"), nl,
write("3 — Добавление новой записи в телефонную базу"), nl,
write("4 - Изменение номера абонента"), nl, 
write("5 — Удаление записи из телефонной базы"), nl, 
write("0 — Выйти"), nl,
readchar(С) /* читаем символ с клавиатуры */ 
m(С). / * вызываем выполнение соответствующего пункта меню */
m('l'):-
clearwindow,
write ("введите фамилию"), nl,
readln(Name), 
name_phone(Name, Phone), 
write("номер телефона: ",Phone), 
readchar(_), 
menu.
m('2'):-
clearwindow,
write("введите номер телефона"), nl, 
readln(Phone),
phone_name(Name, Phone), 
wrіte("фамилия абонента: ",Name), 
readchar(_), 
menu. 
m('3'):-
clearwindow
write("введите фамилию"), nl,
readln(Name),
write("введите номер телефона"), nl,
readln(Phone),
assert(phone(Name,Phone)), 
menu. 
m('4'):-
clearwindow
write("Введите фамилию"),nl,
readln(Name),
write("введите новый номер телефона"), nl,
readln(Phone),
retract(phone(Name,_)),
menu. 
m('5'):-
clearwindow,
write("укажите номер телефона, запись о котором нужно удалить из телефонной базы"), nl, 
readln(Phone),
retract(phone(_,Phone)) 
 
menu. 
m('0'):-
save("phones.ddb") 
retractall(_).     
m(_):-
menu. 
start:-
existfile("phones.ddb"),!, 
consult("phones.ddb "),  
menu. 
start:-
openwrite(f, ' phones.ddb"),
 
closefile(f),
menu. 
GOAL  
Start

DOMAINS
    file=p
DATABASE  
    dbphonebook(symbol,symbol,real,symbol)
PREDICATES
    menu
    select(char)
    findquation
    find(char)
    phone(symbol)
    year(real)
    delay
    start
CLAUSES
    phone("Tel").
    year(2019).
    menu:- makewindow(4,7,7,"DB 'PHONE BOOK'",0,0,24,70),clearwindow,
    write("1 - Add new entry"),nl,
    write("2 - Search entry"),nl,
    write("3 - Edit entry"),nl, 
    write("4 - Delete entry"),nl,
    write("5 - Print_Number_Phone"),nl,
    write("0 - Exit"), nl,nl, 
    write("Select menu item: "),
    readchar(N), select(N).
    select('1'):-clearwindow, 
            write("Enter full name: "), readln(Name),
            write("Enter number phone : "), readln(Number),
            write("Enter address_fp: "), readln(address_fp),
            write("Enter apartment#: "), readln(Apartment),
            assertz(dbphonebook(Name,Number,Address,Apartment)),nl, 
            write("Entry added!"),nl, delay, menu.
    select('2'):-clearwindow, findquation, menu.    
    select('3'):-clearwindow,
            write("Enter full name: "), readln(Name),
            retract(dbphonebook(Name,_,_,_)),
            write("Enter new number phone: "), readln(Numberph),
            write("Enter new Address: "), readreal(addressN),
            write("Enter new apartment: "), readln(Apartment),
            assert(dbphonebook(Name,Numberph,addressN,Apartment)),nl,
            write("Entry was edited!"),nl, delay, menu.
    
select('4'):-clearwindow,
            write("Enter full name: "), readln(Name),
            retract(dbphonebook(Name,_,_,_)),
            write("Entry was deleted!"),nl, delay, menu.
            
                select('5'):-clearwindow,
    dbphonebook(Q,W,E,R),phone(W),year(E),nl,write("number telephone - ",Q),nl,write("Adress - ",W),nl,write("Apartment - ",E),nl,write("hometel - ",R),nl,
    write("_____________________"),fail,delay, menu.
    select('0'):-save("number phone.ddb"),nl,nl,
    write("Database was saved to file."),nl,
    write("Goodbay young friend!:)"),nl,
    retractall(_).     
    select(_):-write("________"), delay, menu.
    findquation:-clearwindow, 
            write("1 - Find entry by full name"),nl,
            write("2 - Find entry by number phone"),nl,
            write("3 - Find entry by address"),nl,
            write("4 - Find entry by apartment"),nl,nl,
            write("Enter item: "),
            readint(F), find(F), delay.
        find(1):-clearwindow, write("Enter full name: "),readln(name),
            dbphonebook(full_name, number_phone, address, apartment),nl, 
            write("full information: "), write(full_name),nl,
            write("address: "), write(number_phone),nl,
            write("Apartment: "), write(street),
            write("full_address: "), write(apartmet).
        find(1):-nl,write("Not found!").                
        find(2):-clearwindow, write("Enter Number phone: "), readln(Numberph),
            dbphonebook(Name, Numberph, Address, Apartment),nl,
            write("full information: "), write(Name),nl,
            write("number phone: "), write(phone),nl,
            write("Full address: "), write(Address),nl,
            write("Apartment: "), write(Apartment),nl.
        find(2):-nl, write("Not found!").
        find(3):-clearwindow, write("Enter address: "), readreal(Address),
            dbphonebook(full_name, Number_phone,Address,Apartment),nl,
            write("full information: "), write(name),nl,
            write("Number phone: "), write(Number_phone),nl,
            write("Address: "), write(Address),nl,
            write("Apartment#: "), write(Apartment),nl.
        find(3):-nl, write("Not found!").
        
                find(4):-clearwindow, write("Enter Apartment: "), readln(Apartment),
            dbphonebook(Name, number_phone, full_address,Apartment),nl,
            write("Full information: "), write(Name),nl,
            write("Number phone: "), write(number_phone),nl,
            write("Full Address: "), write(full_address),nl,
            write("Apartment: "), write(Apartment),nl.
        
find(4):-nl, write("Not found!").
        
    delay:-nl, write("Press any key..."), readchar(_).
    start:-existfile("number_phone.ddb"),!,
    consult("number_phone.ddb"), menu. 
    start:-openwrite(p,"number_phone.ddb"), 
    closefile(p), menu.
GOAL
    start