Динамическая база знаний. Проблема вывода нескольких записей

DOMAINS
    name, country, city = String %Название, где находится
    manuals, ranks, pipes = String % Мануалы, регистры, трубы
    
    file=f
    
DATABASE
    organ(name, country, city, manuals, ranks, pipes)
    
PREDICATES
    org_name(name, country, city, manuals, ranks, pipes) % Орган по имени
    org_country(name, country, city, manuals, ranks, pipes) % Орган по стране
    org_city(name, country, city, manuals, ranks, pipes) % Орган по городу
    
    m(char) % Выполнение пункта меню
    menu % Вывод меню
    start % Запуск программы
    
CLAUSES
    org_name(Name, Country, City, Manuals, Ranks, Pipes):-
        organ(Name, Country, City, Manuals, Ranks, Pipes),!.
    org_name(_," No info "," No info "," No info "," No info "," No info ").
    
    org_country(Name, Country, City, Manuals, Ranks, Pipes):-
        organ(Name, Country, City, Manuals, Ranks, Pipes),!.
    org_country(" No info ", _, " No info "," No info "," No info "," No info ").
    
    org_city(Name, Country, City, Manuals, Ranks, Pipes):-
        organ(Name, Country, City, Manuals, Ranks, Pipes),!.
    org_city(" No info "," No info ", _," No info "," No info "," No info ").
    
    menu:-
        clearwindow,
        write("1 - Search by name"), nl,
        write("2 - Search by country"), nl,
        write("3 - Search by city"), nl,
        write("4 - Add a new entry"), nl,
        write("5 - Edit entry"), nl,
        write("6 - Delete the entry"), nl,
        write("0 - Exit"), nl,
        readchar(C),
        m(C).
        
        m('1'):-
            clearwindow,
            write("Input name"), nl,
            readln(Name),
            org_name(Name, Country, City, Manuals, Ranks, Pipes),
            write("Name: ", Name, " Location: ", Country, " ", City, " Manuals: ", Manuals, " Ranks: ", Ranks, " Pipes: ", Pipes),
            readchar(_),
            menu.
            
        m('2'):-
            clearwindow,
            write("Input country"), nl,
            readln(Country),
            org_country(Name, Country, City, Manuals, Ranks, Pipes),
            write("Name: ", Name, " Location: ", Country, " ", City, " Manuals: ", Manuals, " Ranks: ", Ranks, " Pipes: ", Pipes),
            readchar(_),
            menu.
            
        m('3'):-
            clearwindow,
            write("Input city"), nl,
            readln(City),
            org_city(Name, Country, City, Manuals, Ranks, Pipes),
            write("Name: ", Name, " Location: ", Country, " ", City, " Manuals: ", Manuals, " Ranks: ", Ranks, " Pipes: ", Pipes),
            readchar(_),
            menu.
            
        m('4'):-
            clearwindow,
            write("Input name"), nl,
            readln(Name),
            write("Input country"), nl,
            readln(Country),
            write("Input city"), nl,
            readln(City),
            write("Input manuals"), nl,
            readln(Manuals),
            write("Input ranks"), nl,
            readln(Ranks),
            write("Input pipes"), nl,
            readln(Pipes),
            assertz(organ(Name, Country, City, Manuals, Ranks, Pipes)),
            menu.
            
        m('5'):-
            clearwindow,
            write("Input name"), nl,
            readln(Name),
            write("Input the correct data"), nl,
            write("Input country"), nl,
            readln(Country),
            write("Input city"), nl,
            readln(City),
            write("Input manuals"), nl,
            readln(Manuals),
            write("Input ranks"), nl,
            readln(Ranks),
            write("Input pipes"), nl,
            readln(Pipes),
            retract(organ(Name, _,_,_,_,_)),
            assertz(organ(Name, Country, City, Manuals, Ranks, Pipes)),
            menu.
            
        m('6'):-
            clearwindow,
            write("Name of the entry to delete"), nl,
            readln(Name),
            retract(organ(Name, _,_,_,_,_)),
            menu.
            
        m('0'):-
            save("ORGAN.ddb"),
            retractall(_).
            
        m(_):-
            menu.
            
        start:-
            existfile("ORGAN.ddb"),!,
            consult("ORGAN.ddb"),
            menu.
            
        start:-
            openwrite(f,"ORGAN.ddb"),
            closefile(f),
            menu.
            
GOAL
    start