negativerange.pas