Update error messages in NormaliseByWeight functions

Updated messages in exceptions raised in Double and Cardinal overloads
to mentions that errors are concerned with weights.

Author: delphidabbler

collection/668.dat

@@ -6,18 +6,18 @@ var
   Idx: Integer;
 begin
   if (System.Length(A) = 0) then
-    raise SysUtils.EArgumentException.Create('Array is empty');
+    raise SysUtils.EArgumentException.Create('Array of weights is empty');
   WeightSum := 0.0;
   for Weight in A do
   begin
     if Math.Sign(Weight) = Math.NegativeValue then
       raise SysUtils.EArgumentException.Create(
-        'All array elements must be non-negative'
+        'All weights must be non-negative'
       );
     WeightSum := WeightSum + Weight;
   end;
   if Math.IsZero(WeightSum) then
-    raise SysUtils.EArgumentException.Create('Sum of array elements is zero');
+    raise SysUtils.EArgumentException.Create('Sum of weights is zero');
   System.SetLength(Result, System.Length(A));
   for Idx := 0 to Pred(System.Length(A)) do
     Result[Idx] := A[Idx] / WeightSum;

collection/671.dat

@@ -6,12 +6,12 @@ var
   Idx: Integer;
 begin
   if (System.Length(A) = 0) then
-    raise SysUtils.EArgumentException.Create('Array is empty');
+    raise SysUtils.EArgumentException.Create('Array of weights is empty');
   WeightSum := 0;
   for Weight in A do
     WeightSum := WeightSum + Weight;
   if WeightSum = 0 then
-    raise SysUtils.EArgumentException.Create('Sum of array elements is zero');
+    raise SysUtils.EArgumentException.Create('Sum of weights is zero');
   System.SetLength(Result, System.Length(A));
   for Idx := 0 to Pred(System.Length(A)) do
     Result[Idx] := A[Idx] / WeightSum;