Получение нескольких ответов Visual Prolog

 DOMAINS 
rus, eng = string
file = f 
Fact=word(rus, eng) 
Facti=Fact*
 
DATABASE 
word(rus, eng)
 
PREDICATES 
nondeterm fact(Fact)
nondeterm rus2eng(rus, eng)
nondeterm eng2rus(rus, eng)
nondeterm punkt(char)
nondeterm menu
nondeterm result
nondeterm poelem(Facti)
 
CLAUSES
rus2eng(Russian,Word):- word(Russian,Word),!. 
rus2eng(_,"Перевод слова не найден ").
eng2rus(Russian,Word):- word(Russian,Word).
eng2rus("Перевод слова не найден ",_).
 
fact(word(Russian,English)):-word(Russian, English).
 
result:-
    existfile("D:\words.txt"),!,  /* тест на наличие файла с данным именем */
    consult("D:\words.txt"),menu. /* Произвольный текстовый файл, содержащий факты,
                            совпадающие по синтаксису с предикатами описанной в программе БД,
                            считывается в память (загружается) при помощи встроенного предиката consult */
result:-
    openwrite(f,"D:\words.txt"),  /* если файла с базой не существует, создаем его */
    closefile(f),menu.
 
poelem([]):- nl.
poelem([H|T]):- write(H,"\n"),poelem(T).
 
menu:- 
write("1 - Перевод с русского языка на английский"),nl,
write("2 - Перевод с английского языка на русский"),nl,
write("3 - Добавить новую запись"),nl, 
write("4 - Изменение перевода русского слова"),nl, 
write("5 - Изменение перевода английского слова"),nl, 
write("6 - Удаление записи из словаря"),nl,
write("7 - Вывод всех записей"),nl,
write("0 - Выход"),nl,
readchar(C), punkt(C).
 
punkt('1'):-nl,
write("Введите русское слово: "),readln(Rus),
rus2eng(Rus, Eng),
write("Перевод: ",Eng),nl,nl, 
readchar(_),menu.
 
punkt('2'):-nl,
write("Введите английское слово: "),readln(Eng),
eng2rus(Rus, Eng),
write("Перевод: ",Rus),nl,nl,
readchar(_),menu.
 
punkt('3'):-nl,
write("Введите русское слово: "),readln(Rus),
write("Введите перевод: "),readln(Eng),
assert(word(Rus,Eng)),nl,menu.
 
punkt('4'):-nl,
write("Введите русское слово: "),readln(Rus),
write("Введите перевод: "),readln(Eng),
retract(word(Rus,_)),
assert(word(Rus,Eng)),nl,
menu.
 
punkt('5'):-nl,
write("Введите английское слово: "),readln(Eng),
write("Введите перевод: "),readln(Rus),
retract(word(_,Eng)),
assert(word(Rus,Eng)),nl,
menu.
 
punkt('6'):-nl,write("Введите английское слово, запись о котором нужно удалить: "), 
readln(Eng),retract(word(_,Eng)),nl,menu.
 
punkt('7'):-findall(Fact,fact(Fact),Facti),nl,poelem(Facti),menu.
 
punkt('0'):-save("D:\words.txt"),retractall(_).
punkt(_):- menu.
 
GOAL 
result.

word("дерево","tree")
word("облако","cloud")
word("машина","car")
word("лицо","face")
word("лицо","person")