Переделать экспертную систему под VP 7.4

include "mynew.inc"
 
global facts
yes (symbol)
no (symbol)
predicates
 nondeterm fish(symbol)
 nondeterm otrjad(symbol)
 nondeterm vid(symbol)
 begin
answer
question(symbol)
add_to_database(symbol,char)
otvet(char)
clear_from_database
priznak(symbol)
goal
begin.
 
 
clauses
begin:-
   write("задайте вопрос:"),nl,nl,
   answer,
   clear_from_database,
   nl,nl,nl,nl,
   exit.
   
 answer:-
   fish(X),!,nl,
   save("BF1.dbf"),
   write (" ответ: ",X,"."),nl.
   question(Y) :-
   write ("вопрос: ",Y,"? "),
   otvet(X),
   write(X),nl,
   add_to_database (Y,X).
otvet(C):-
readchar(C).
    priznak (Y) :-
yes (Y),!.
priznak (Y) :-
not( no (Y)),
        question (Y).
add_to_database (Y,'y') :-
assertz (yes (Y)).
add_to_database (Y,'n') :-
assertz (no(Y)),fail.
    clear_from_database :- retract (yes(_)),fail.
clear_from_database :- retract (no(_)),fail.
 
   fish("это сазан"):-
otrjad("отряд карпообразные "),
priznak("губы с 4мя усиками").
fish("это плотва"):-
otrjad("отряд карпообразные"),
priznak("плавники с розовыми перьями").
fish("это лещ"):-
otrjad("отряд карпообразные"),
priznak("у рыбы желтозолотистый окрас"),
priznak("спинной плавник узкий").
fish("данной рыбы в базе не обнаружено").
otrjad("отряд карпообразные"):-
        vid("пресноводная рыба"),
vid("костная рыба"),
    priznak("одиночный лучевой плавник"),
        priznak("у рыбы нет зубов").
vid("костная рыба"):-
        priznak("у рыбы есть жаберные крышки");
priznak("у рыбы есть костный скелет").
vid("пресноводная рыба"):-
        priznak("рыба плавает в реках или озерах").