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