Fixed unused variables in THotSprings

solvers/UHotSprings.pas

@@ -59,12 +59,10 @@ implementation
 procedure THotSprings.ExtendArrangement(const AArrangement: string; const ARemainingFreeOperationalCount,
   ACurrentValidationIndex: Integer);
 var
-  i, len: Integer;
   match: Boolean;
   temp: string;
 begin
-  len := Length(AArrangement);
-  if len = Length(FSpringPattern) then
+  if Length(AArrangement) = Length(FSpringPattern) then
     Inc(FPart1)
   else begin
     temp := AArrangement;