procedure rup(var x: hreal);
begin { rup }
  with x do if si>0 then rtowinfty(x)
  else if si<0 then rtowzero(x)
  else x:=minhreal;
end { rup };

