Помогите написать программу для сортировки списка - Prolog

domains
int=integer
intl=int*
 
predicates
min(intl,int)
del(intl,int,intl)
vsort(intl,intl)
 
clauses
min([X],X) :- !.
min([H|T],H) :- min(T,N), H<N.
min([H|T],N) :- min(T,N), H>=N.
 
del([],_,[]).
del([X|T],X,T):- !.
del([Y|T],X,[Y|R]):- X<>Y, del(T,X,R).
 
vsort([],[]).
vsort(X,[A|T]) :- min(X,A), del(X,A,XX), vsort(XX,T).