Задачка не может вычислить самую молодую команды

[PROLOG]*Äëÿ êàæäîé êîìàíäû ñîñòàâèòü ïåðå÷åíü åå èãðîêîâ, îïðåäåëèü ñðåäíèé âîçðàñò êàæäîé êîìàíäû è íàéòè ñàìóþ ìîëîäóþ êîìàíäó.*/
DOMAINS
    ôàìèëèÿ,àìïëóà,íàçâàíèå_êîìàíäû = string
    âîçðàñò,kol_vo,âîçðàñò_ñì= integer
    ñðåäíèé_âîçðàñò=real
    
FACTS
    determ kol(kol_vo,âîçðàñò_ñì)
    determ kol_vo(kol_vo)
    nondeterm êîìàíäà(íàçâàíèå_êîìàíäû)   
    nondeterm ëè÷íûå_äàííûå(íàçâàíèå_êîìàíäû,ôàìèëèÿ,âîçðàñò)
    determ sum(kol_vo)
    determ âîçðàñò(íàçâàíèå_êîìàíäû,ñðåäíèé_âîçðàñò)
    
PREDICATES
    nondeterm ïåðå÷åíü(íàçâàíèå_êîìàíäû,kol_vo)
        nondeterm ïåðå÷åíü_ôóòáîë     
        nondeterm ñðåäíèé_âîçðàñò(íàçâàíèå_êîìàíäû,ñðåäíèé_âîçðàñò)
        nondeterm ìîëîäàÿ_êîìàíäà
    
CLAUSES 
 
    /*  ïåðå÷åíü ôóòáîëèñòîâ êàæäîé êîìàíäû, îïðåäåëåíèå ÷èñëà ôóòáîëèñòîâ â êîìàíäå */
    ïåðå÷åíü(Íàçâàíèå_êîìàíäû,_):- 
       assert(kol_vo(0)), 
       ëè÷íûå_äàííûå(Íàçâàíèå_êîìàíäû,Ôàìèëèÿ,_), write(Ôàìèëèÿ), nl, 
           retract(kol_vo(N)), 
           N1 = N + 1,
           assert(kol_vo(N1)),
           fail. 
        ïåðå÷åíü(_,K):-
           retract(kol_vo(K)).
           
        /* îïðåäåëåíèå ñðåäíåãî âîçðàñòà èãðîêîâ â êîìàíäå */
       ñðåäíèé_âîçðàñò(Íàçâàíèå_êîìàíäû,Ñðåä_âîçðàñò1):- 
       assert(kol(0,0)), 
       ëè÷íûå_äàííûå(Íàçâàíèå_êîìàíäû,_,Âîçðàñò), 
           retract(kol(N,Â_Ñ)), 
           N1 = N + 1,
           Â_Ñ1=Â_Ñ+Âîçðàñò,
          Ñðåä_âîçðàñò1=Â_Ñ1/N1,
           assert(kol(N1,Â_Ñ1)),
           fail. 
        ñðåäíèé_âîçðàñò(Íàçâàíèå_êîìàíäû,Ñðåä_âîçðàñò):-
           retract(kol(K,Â_Ñ)),
          Ñðåä_âîçðàñò=Â_Ñ/K.
        
    /*âûâîä ïåðå÷íÿ ôóòáîëèñòîâ êàæäîé êîìàíäû, îáùåãî ÷èñëà èãðîêîâ,÷èñëà ôóòáîëèñòîâ â êîìàíäå è cðåäíåãî âîçðàñòà èãðîêîâ â êîìàíäå*/
    ïåðå÷åíü_ôóòáîë:-
       assert(sum(0)), 
       êîìàíäà(Íàçâàíèå_êîìàíäû),
       write("Ïåðå÷åíü ôóòáîëèñòîâ êîìàíäû ",Íàçâàíèå_êîìàíäû,":"),nl,
       ïåðå÷åíü(Íàçâàíèå_êîìàíäû,K),
       write("÷èñëî èãðîêîâ="), write(K), nl,
       ñðåäíèé_âîçðàñò(Íàçâàíèå_êîìàíäû,Ñðåä_âîçðàñò),
       write("ñðåäíèé âîçðàñò èãðîêîâ= "),write(Ñðåä_âîçðàñò),nl,nl,
       retract(sum(S)), 
           S1 = S +K, 
           asserta(sum(S1)), 
           fail.
         ïåðå÷åíü_ôóòáîë:-  
           retract(sum(S)),
           write("Îáùåå ÷èñëî èãðîêîâ="),
           write(S),nl,nl.
         
           /* Îïðåäåëåíèå ñàìîé ìîëîäîé êîìàíäû è âûâîä åå íà ýêðàí */
         ìîëîäàÿ_êîìàíäà:-
             assert(âîçðàñò(" ",0.0)),
              ñðåäíèé_âîçðàñò(Íàçâàíèå_êîìàíäû,Ñðåä_âîçðàñò),
              âîçðàñò(Íàçâàíèå_êîìàíäû_ìèí,Ñðåä_âîçðàñò1),
             Ñðåä_âîçðàñò<Ñðåä_âîçðàñò1,
              retract(âîçðàñò(Íàçâàíèå_êîìàíäû_ìèí,Ñðåä_âîçðàñò1)),
             assert(âîçðàñò(Íàçâàíèå_êîìàíäû,Ñðåä_âîçðàñò)),
              fail.
           ìîëîäàÿ_êîìàíäà:-
              retract(âîçðàñò(Íàçâàíèå_êîìàíäû,Ñðåä_âîçðàñò)),
              write("Ñàìàÿ ìîëîäàÿ êîìàíäà="),
              write(Íàçâàíèå_êîìàíäû),nl.
               
GOAL
    consult("C:\\ôóòáîë.dba"),
    ïåðå÷åíü_ôóòáîë,
    ìîëîäàÿ_êîìàíäà,
    save("C:\\ïåðå÷åíü.dba").

         молодая_команда:-
              команда(Название_команды),
              средний_возраст(Название_команды,Сред_возраст),
              not(моложе(Сред_возраст)),
              write("Samaya molodaya komanda="),
              write(Название_команды),nl,fail.
         молодая_команда.
         
         моложе(Возраст):-средний_возраст(_,Сред_возраст),Сред_возраст<Возраст.

ëè÷íûå_äàííûå("Ðåàë_Ìàäðèä","Êðèøòèàíó_Ðîíàëäó",27).
ëè÷íûå_äàííûå("Ðåàë_Ìàäðèä","Èêåð_Êàñèëüÿñ",30).
ëè÷íûå_äàííûå("Ðåàë_Ìàäðèä","Ðèêàðäó_Êàðâàëüþ",33).
ëè÷íûå_äàííûå("Áàðñåëîíà","Âèêòîð_Âàëüäåñ",30).
ëè÷íûå_äàííûå("Áàðñåëîíà","Õàâüåð_Ìàñêåðàíî",27).
ëè÷íûå_äàííûå("Áàðñåëîíà","Æåðàð_Ïèêå",25).
ëè÷íûå_äàííûå("Âàëåíñèÿ","Ãóàéòà_Âèñåíòå",25).
ëè÷íûå_äàííûå("Âàëåíñèÿ","Äàâèä_Àëüáåëüäà",34).
ëè÷íûå_äàííûå("Âàëåíñèÿ","Ïàáëî_Ýðíàíäåñ",26).
ëè÷íûå_äàííûå("Äåïîðòèâî","Äàíèýëü_Àðàíñóáèÿ",32).
ëè÷íûå_äàííûå("Äåïîðòèâî","Õóàí_Âàëåðîí",36).
ëè÷íûå_äàííûå("Äåïîðòèâî","Ïàáëî_Àëüâàðåñ",31).
ëè÷íûå_äàííûå("Ñåâèëüÿ","Àíäðåñ_Ïàëîï",38).
ëè÷íûå_äàííûå("Ñåâèëüÿ","Èâàí_Ðàêèòè÷",24).
ëè÷íûå_äàííûå("Ñåâèëüÿ","Äèåãî_Ïåðîòòè",23).
ëè÷íûå_äàííûå("Àëüìåðèÿ","Ýñòåáàí_Ñóàðåñ",36).
ëè÷íûå_äàííûå("Àëüìåðèÿ","Ôåðíàíäî_Ñîðèàíî",32).
ëè÷íûå_äàííûå("Àëüìåðèÿ","Ìèãåëü_Àíõåëü",31).
ëè÷íûå_äàííûå("Àòëåòèê","Ãîðêà_Èðàèñîñ",31).
ëè÷íûå_äàííûå("Àòëåòèê","Êàðëîñ_Ãóðïåãè",31).
ëè÷íûå_äàííûå("Àòëåòèê","Ìàðêåë_Ñóñàåòà",24).
ëè÷íûå_äàííûå("Ýñïàíüîë","Êðèñòèàí_Àëüâàðåñ",26).
ëè÷íûå_äàííûå("Ýñïàíüîë","Ðîäðèãåñ_Õàâüåð_Ëîïåñ",26).
ëè÷íûå_äàííûå("Ýñïàíüîë","Ôèëèïïå_Êîóòèíüî",19).
ëè÷íûå_äàííûå("Âèëüÿððåàë","Äèåãî_Ëîïåñ",30).
ëè÷íûå_äàííûå("Âèëüÿððåàë","Ìàðêîñ_Ñåííà",35).
ëè÷íûå_äàííûå("Âèëüÿððåàë","Áðóíî_Ñîðèàíî",27).
ëè÷íûå_äàííûå("Ëåâàíòå","Ãóñòàâî_Ìóíóà",34).
ëè÷íûå_äàííûå("Ëåâàíòå","Õàâüåð_Ôàðèíîñ",34).
ëè÷íûå_äàííûå("Ëåâàíòå","Õóàí_Ëóèñ_Ãîìåñ",31).
êîìàíäà("Ðåàë_Ìàäðèä").
êîìàíäà("Áàðñåëîíà").
êîìàíäà("Âàëåíñèÿ").
êîìàíäà("Äåïîðòèâî").
êîìàíäà("Ñåâèëüÿ").
êîìàíäà("Àëüìåðèÿ").
êîìàíäà("Àòëåòèê").
êîìàíäà("Ýñïàíüîë").
êîìàíäà("Âèëüÿððåàë").
êîìàíäà("Ëåâàíòå").