Минимальный нечетный элемент в файле

domains
    file = ff.
    iList = integer*.
predicates
    while1.
    action(integer).
    rfset.
    rfuset.
    wfset.
    wfuset.
    readfile.
    readlist(file,iList).
    writelist(file,iList).
    makeodd(iList,iList).
    removeelembyid(iList,integer,iList).
    getch.
clauses
    rfset:-readdevice(ff).
    rfuset:-readdevice(keyboard).
    wfset:-writedevice(ff).
    wfuset:-writedevice(screen).
    getch:-readln(_).
    
    readlist(ff,[]):-eof(ff),!.
    readlist(ff,[H|L]):-readint(H), readlist(ff,L).
    
    writelist(ff,[H|L]):-!, writef("%5.0",H), nl, writelist(ff,L).
    writelist(ff,[]).
    
    makeodd([A|L1],[A|L2]):-A mod 2 = 0, !, makeodd(L1,L2).
    makeodd([A|L1],L2):-A mod 2 = 1, !, makeodd(L1,L2).
    makeodd([],[]).
    
    removeelembyid([A|H],N,[A|H1]):-
        N>1, N1 = N-1, 
        removeelembyid(H,N1,H1).
    removeelembyid([_|H],1,H).
    removeelembyid([],_,[]).
    while1.
    while1:-while1.
    
    action(6):-
        makewindow(7,112,4,"odd elem",2,2,21,76),
        
        write("Enter filename input: "), readln(FN),
        openR(ff,FN),
        rfset,readlist(ff,List),rfuset,
        closefile(ff),!,
        
        makeodd(List,List2),
        
        write("Enter filename output: "), readln(FN2),
        openW(ff,FN2),
        wfset,writelist(ff,List2),wfuset,
        closefile(ff),!,
        
        getch,
        removewindow.