Автор: zaila0724 14.12.2017 19:19
из списка удалить каждый элемент,который меньше предыдущего
Автор: Халявов 22.12.2017 3:32
Код
while Element^.next != nill do
begin
if Element^.Val > Element^.next^.Val
then
begin
Ref:=Element^.next;
Element^.next:=Ref^.next;
Dispose(Ref);
end
else Element:=Element^.next
end