diff --git a/solvers/UHotSprings.pas b/solvers/UHotSprings.pas
index 6b27105..8f12cab 100644
--- a/solvers/UHotSprings.pas
+++ b/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;