Всем Привет! Есть экспертная система продажи телефонов, некоректно работает выбор телефона подешевле после того как пользователь ответит на вопросы. Помогите пожалуста исправить ошибку. Заранее благодарна!

Код
database
  yes(string)
  no(string)
  maybe(string)

predicates
  repeat
  run
  make_selection(string, integer, integer)
  continue_selection(integer, string, integer)
  tel(string,integer)
  is(string)
  positive(string)
  negative(string)
  xpositive(string)
  xnegative(string)
  ask(string,char)
  remember(string,char)
  delete_all
clauses
  repeat.
  repeat:-repeat.
%-----------------------------------------------------------------------------
% описываем технические характеристики сотового телефона
    tel("Samsung E1070", 890):- positive("цветной дисплей"),positive("емкий аккумулятор"),
           negative("имеет камеру"),
                     negative("имеет FM-радио"),
           negative("имеет Mp3-плеер"),
           is("только для связи").
  
  tel("Nokia 1202", 1000):- positive("цветной дисплей"),positive("емкий аккумулятор"),
                     negative("имеет камеру"),
                     negative("имеет FM-радио"),
           negative("имеет Mp3-плеер"),
           is("только для связи").

  tel("Nokia 1208", 1190):-positive("цветной дисплей"),positive("емкий аккумулятор"),
           negative("имеет камеру"),
                     negative("имеет FM-радио"),
           negative("имеет Mp3-плеер"),
           is("только для связи").



  tel("Nokia 2630", 2490):-positive("цветной дисплей"),positive("емкий аккумулятор"),
          negative ("имеет камеру"),
                     positive ("имеет FM-радио"),
           negative("имеет Mp3-плеер"),
           is("только для связи"), is("развлечения и музыка").

  tel("LG KP105", 1490):- positive("цветной дисплей"),positive("емкий аккумулятор"),
           negative ("имеет камеру"),
                     positive ("имеет FM-радио"),
           negative("имеет Mp3-плеер"),
           is("только для связи").

  tel("LG GB110", 2550):- positive("цветной дисплей"),positive("емкий аккумулятор"),
           negative ("имеет камеру"),
                     positive ("имеет FM-радио"),
          negative ("имеет Mp3-плеер"),
           is("только для связи"), is("развлечения и музыка").

 
  tel("Nokia E52", 12990):- positive("цветной дисплей"), positive ("емкий аккумулятор"),
           positive ("имеет камеру"),
                     positive ("имеет FM-радио"),
           positive ("имеет флэш-карту"),
           negative("имеет навигацию"),
           negative("имеет Mp3-плеер"),
           is("мобильный офис").

  tel("Nokia E66", 11890):- positive("цветной дисплей"), positive ("емкий аккумулятор"),
           positive ("имеет камеру"),
                     positive ("имеет FM-радио"),
           positive ("имеет флэш-карту"),
           negative ("имеет навигацию"),
           negative("имеет Mp3-плеер"),
           is("мобильный офис"),  is("помощник в путешествиях").


  tel("Nokia E63", 13500):- positive("цветной дисплей"), positive ("емкий аккумулятор"),
           positive ("имеет камеру"),
                     positive ("имеет FM-радио"),
           positive ("имеет флэш-карту"),
           negative ("имеет навигацию"),
           negative("имеет Mp3-плеер"),
           is("мобильный офис"),  is("помощник в путешествиях").

  tel("Nokia 5310", 7990):- positive("цветной дисплей"), positive ("емкий аккумулятор"),
           positive ("имеет камеру"),
                     positive ("имеет FM-радио"),
           positive ("имеет флэш-карту"),
           positive ("имеет Mp3-плеер"),
           negative("сенсорный дисплей"),
           positive ("имеет дополнительные клавиши управления Mp3-плеером"),
           is("развлечения и музыка").

  tel("Nokia 5530", 7780):- positive("цветной дисплей"), positive ("емкий аккумулятор"),
           positive ("имеет камеру"),
                     positive ("имеет FM-радио"),
           positive ("имеет флэш-карту"),
           positive ("имеет Mp3-плеер"),
           negative ("сенсорный дисплей"),
           positive ("имеет дополнительные клавиши управления Mp3-плеером"),
           is("развлечения и музыка").

  tel("Nokia 5800", 8890):- positive("цветной дисплей"), positive ("емкий аккумулятор"),
           positive ("имеет камеру"),
                     positive ("имеет FM-радио"),
           positive ("имеет флэш-карту"),
           positive ("имеет Mp3-плеер"),
           negative ("сенсорный дисплей"),
           positive ("имеет дополнительные клавиши управления Mp3-плеером"),
is("развлечения и музыка"), is("мобильный офис"),is ("помощник в путешествиях").

  tel("SonyEricsson W595", 8450):- positive("цветной дисплей"), negative ("емкий аккумулятор"),
           positive ("имеет камеру"),
                     positive ("имеет FM-радио"),
           positive ("имеет флэш-карту"),
           positive ("имеет Mp3-плеер"),
           negative("сенсорный дисплей"),
           negative ("имеет дополнительные клавиши управления Mp3-плеером"),
           is("развлечения и музыка").

  tel("SonyEricsson W395", 7890):- positive("цветной дисплей"), negative ("емкий аккумулятор"),
           positive ("имеет камеру"),
                     positive ("имеет FM-радио"),
           positive ("имеет флэш-карту"),
           positive ("имеет Mp3-плеер"),
           negative("сенсорный дисплей"),
           negative ("имеет дополнительные клавиши управления Mp3-плеером"),
           is("развлечения и музыка").

  tel("Nokia N86", 24790):- positive("цветной дисплей"), positive ("емкий аккумулятор"),
           positive ("имеет камеру"),
                     positive ("имеет FM-радио"),
           positive ("имеет флэш-карту"),
           positive ("имеет навигацию"),
           positive ("имеет Mp3-плеер"),
           negative ("имеет Wi-Fi"),
           positive ("имеет дополнительную клавиатуру"),
           is("помощник в путешествиях"), is("мобильный офис").

  tel("Nokia N97", 27990):- positive("цветной дисплей"), positive ("емкий аккумулятор"),
           positive ("имеет камеру"),
                     positive ("имеет FM-радио"),
           positive ("имеет флэш-карту"),
           positive ("имеет навигацию"),
           positive ("имеет Mp3-плеер"),
           negative ("имеет Wi-Fi"),
           positive ("имеет дополнительную клавиатуру"),
is("помощник в путешествиях"), is("мобильный офис"), is("развлечения и музыка").

  tel("Такой телефон еще не произведен!!!!", 0).

%-----------------------------------------------------------------------------
  is("только для связи"):-positive("звонить и отправлять смс"),!.
  is("мобильный офис"):- positive("смартфон"),!;
                         negative("слушать музыку"),
                         positive("звонить и отправлять смс").
  is("развлечения и музыка"):- positive("слушать музыку"),!;
                               positive("звонить и отправлять смс"),
                               negative("смартфон").
  is("помощник в путешествиях"):-positive("имеет GPS-навигацию").
%-----------------------------------------------------------------------------
% работа с динамической базой данных
  positive(X):-xpositive(X),!; xnegative(X),!,fail; ask(X,'y').
  negative(X):-xnegative(X),!; xpositive(X),!,fail; ask(X,'n').
  ask(X,R):-write(X,"  ?  : "),readchar(Reply),write(Reply,"\n"),
            remember(X,Reply),R=Reply.
% проверка присутствия фактов в динамической базе данных
  xpositive(X):-yes(X);maybe(X).
  xnegative(X):-no(X);maybe(X).
% запоминаем факт в динамической базе данных
  remember(X,'y'):-asserta(yes(X)).
  remember(X,'n'):-assertz(no(X)).
  remember(X,'q'):-asserta(maybe(X)).
% очищаем память от фактов динамической базы данных
delete_all:-retract(yes(_)),delete_all.
delete_all:-retract(no(_)),delete_all.
delete_all:-retract(maybe(_)),delete_all.
delete_all.
%-----------------------------------------------------------------------------
run:-delete_all,
       %repeat,
       write("На вопросы отвечать (y-да, n-нет, q-не знаю).\n"),     
         
    make_selection(X, A, CHOOSE),
    continue_selection(CHOOSE, X, A),
       write("Завершить работу программы (y/n): "),readchar(Z),
       write(Z),nl,
       Z='y', !.

make_selection(X, A, CHOOSE) :- tel(X,A), write("Ваш выбор: ",X," цена: ",A,"\n"),
        write("Устраивает ли вас цена? \n1-да, данная модель меня устраивает\n2-нет, покажите модель по дешевле\n3-нет, покажите модель по дороже"),
        readchar(CHOOSE).

continue_selection('1', X, A) :-  !, write("Ваш выбор: ",X," цена: ",A,"\n"), !.
continue_selection('2', X, A) :-  !, tel(X, Z), Z < A, write("-->>", X, " - ", A).
goal
  makewindow(1,10,12," Экспертная система : СОТОВЫЕ ТЕЛЕФОНЫ ",0,0,25,80),
  write("--------------------------------------------"),nl,
  run.