Wilcoxon

procedure Wilcoxon(

  X: TVector;

  Y: TVector;

  Lb: Integer;

  Ub: Integer;

  var Ndiff: Integer;

  var T: Float;

  var Eps: Float

);