Сделать считывание вопросов из файла

domains
 file = myfile
 database
 question(integer,string)
 answer(integer,integer,string,integer)
 mark(integer,integer,integer)
 database - count
 determ marks(integer)
 predicates
 determ test
 answers(integer)
 clauses
 marks(0).
 
 question(1,"Capital USA").
 question(2,"2+2=?").
 question(3,"6*6=?").
 
 answer(1,1,"New-York",0). 
 answer(1,2,"Wasington",1).
 answer(1,3,"Chicago",0).
 
 answer(2,1,"5",0). 
 answer(2,2,"4",1).
 answer(2,3,"22",0).
 
 answer(3,1,"36",1). 
 answer(3,2,"63",0).
 answer(3,3,"err",0).
 
 mark(1,1,1). mark(1,0,0).
 mark(2,1,1). mark(2,0,0).
 mark(3,1,1). mark(3,0,0).
 
 answers(N):-
 answer(N,Nomer,Answer,_),
 writedevice(myfile),
 writef("\t%. %\n",Nomer,Answer),
 writedevice(screen),
 writef("\t%. %\n",Nomer,Answer),
 fail;
 true.
 
 test:-
 openwrite(myfile,"mytest.txt"), 
 writedevice(myfile),
 makewindow(1,7,7,"IQ test",1,3,22,71),
 write("\t test\n"),
 writedevice(screen),
 write("\t test\n"),
 question(N, Question),
 writedevice(myfile),
 writef("\nQuestion %. %\nVariants answers:\n",N,Question),
 writedevice(screen),
 writef("\nQuestion %. %\nVariants answers:\n",N,Question),
 answers(N),
 writedevice(myfile),
 write("\nChoice answers: "),
 writedevice(screen),
 write("\nChoice answers: "),
 readint(W),
 writedevice(myfile),
 write(W),
 answer(N,W,_,I),
 mark(N,I,B),
 retract(marks(X)),X1=X+B, assert(marks(X1)),
 fail;
 marks(X),
 writedevice(myfile),
 writef("\nResult. Volume marks: %.\n",X),
 writedevice(screen),
 writef("\nResult. Volume marks: %.\n",X),
 closefile(myfile).
 goal
 test.

database -simptomi
simptom(integer,string).
....
goal
consult("D:/simptomi.txt",simptomi),
...
save("D:/simptomi.txt",simptomi).