q_sub

procedure q_sub(

  var difference: MPRational;

  var minuend: MPRational;

  var subtrahend: MPRational

);

function q_sub(

  var minuend: MPRational;

  var subtrahend: MPRational

):MPRational;