программирование паскаль, решить задачу Опции

[zaila0724]

из списка удалить каждый элемент,который меньше предыдущего

[Халявов]

Код

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