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

[_Dianka_]

Доброго вечера, товарищи. Нужно сделать поиск минимального четного элемента в файле. Вывод четных элементов получилось сделать, а вывести минимальный не получается. Вот код для четных элементов:

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.