Списки. Удалить отрицательные элементы - Prolog

Формулировка задачи:

Задание звучит так: Организовать ввод и формирование списка вещественных чисел с проверкой. Сформировать список положительных элементов исходного списка. Упорядочить полученный список по возрастанию значений элементов. Подскажите, как из списка получить список без отрицательных элементов? Вот что я написала по заданию:

                    Листинг программы
                
 
                        
                          
                    
vvlist1 :-write('задайте длину списка'),read(N), vvodlist(N,L),sort_insert(L,LS) ,write('L= '),write(LS).
delete_term([],[]).
delete_term(L,LS):-
sort_insert([],[]).
sort_insert([X|T],OL):-sort_insert(T,OT),insert(X,OT,OL).
insert(X,[],[X]).
insert(X,[Y|T],[X,Y|T]):- X=<Y.
insert(X,[Y|T],[Y|T1]):- X>Y,insert(X,T,T1).

Решение задачи: «Списки. Удалить отрицательные элементы»

Листинг программы

?- Xs = [2, 3, 0, -1, 1], setof(X, (member(X, Xs), X > 0), Ys).
Xs = [2, 3, 0, -1, 1],
Ys = [1, 2, 3].

Объяснение кода листинга программы

Первый элемент списка Xs: 2.
Второй элемент списка Xs: 3.
Третий элемент списка Xs: 0.
Четвертый элемент списка Xs: -1.
Пятый элемент списка Xs: 1.
Переменная Ys инициализируется как пустой список.
Код в скобках (member(X, Xs), X > 0) является предикатом, который проверяет, является ли элемент X членом списка Xs и больше ли он нуля.
Код в скобках (member(X, Xs), X > 0) применяется к каждому элементу списка Xs.
Если элемент X является членом списка Xs и больше нуля, он добавляется в список Ys.
В результате получается список Ys: [1, 2, 3].
Переменная Ys возвращается в качестве результата.