здравствуйте,если можете-помогите,буду оч благодарна.Для каждого пилота получить его имя,адрес,номера пилотируемых самолетов и их количество.Определить какой рейс является наиболее продолжительным.
domains
s=string
i=integer
database
pilot(i,s,s)
race(s,i,i,s,s,i,i)
samolyot(i,s,i,s)
predicates
kol(i,i,i)
vivod(i)
clauses
kol(N,C,C1):-
race(_,N,_,_,_,_,_),
C2=C+1,
retract(race(_,N,_,_,_,_,_)),
kol(N,C2,C1).
kol(_,C,C).
vivod(N):-
pilot(N,Name,ADDR),
race(_,N,Ks,_,_,_,_),
kol(N,0,C),
write("Pilot ",Name," pilotiruet ",C," samolyotov,ih nomera:",Ks,"ego adres",ADDR).
vivod(N):-
write("Pilota ",N," net v spiske!").
goal
makewindow(1,120,2,"Svedeniya o pilote",2,2,15,75),
retractall(_),consult("prim_l3.pro"),
write("Vvedite nomer pilota: \n"),
readint(N),
vivod(N).

Файл
pilot(1,"SERGE","NICE")
pilot(2,"JEAN","PARIS")
pilot(3,"CLAUDE","GRENOBLE")
pilot(4,"ROBERT","TOULOUSE")
pilot(5,"MICHEL","PARIS")
pilot(6,"PAUL","PARIS")
pilot(7,"PIERRE","TOULOUSE")
race("IT100",1,100,"NICE","PARIS",7,8)
race("IT101",2,100,"PARIS","NICE",11,12)
race("IT102",1,101,"PARIS","TOULOUSE",12,13)
race("IT103",1,102,"TOULOUSE","GRENOBLE",15,16)
race("IT104",3,103,"TOULOUSE","PARIS",9,10)
race("IT105",2,104,"TOULOUSE","NICE",6,7)
race("IT106",4,104,"PARIS","TOULOUSE",14,15)
race("IT107",6,105,"PARIS","NICE",8,9)
race("IT108",2,105,"NICE","TOULOUSE",12,13)
race("IT109",1,105,"TOULOUSE","PARIS",20,21)
race("IT110",1,102,"GRENOBLE","TOULOUSE",17,18)
race("IT111",1,104,"NICE","PARIS",10,11)
race("IT112",1,103,"PARIS","TOULOUSE",12,14)
race("IT113",1,106,"PARIS","NICE",23,24)
race("IT114",3,106,"NICE","PARIS",10,11)
samolyot(100,"AIRBUS",700,"NICE")
samolyot(101,"B707",250,"PARIS")
samolyot(102,"AIRBUS",300,"TOULOUSE")
samolyot(103,"CARAV",200,"TOULOUSE")
samolyot(104,"AIRBUS",350,"TOULOUSE")
samolyot(105,"AIRBUS",150,"PARIS")
samolyot(106,"CARAV",250,"PARIS")

Помогите плиз:как доделать так,чтобы показывало все номера самолетов и как выбрать самый продолжительный рейс.