anchor.diff:      for I := 0 to Length(aPLsDefAreas) - 1 do
         Inc(  DefLinesReq[ aPLsDefAreas[I] ], Round( SeparatedDefLines[ aPLsDefAreas[I] ].PolyCnt / PolySum * aDefPosReq[aIdx] )  );
     end;
  -  function GetOwners(DefLineIdx: Integer; var aPLsDefAreas: TKMByte2Array): TKMHndIdxArray;
  +  function GetOwners(DefLineIdx: Integer; var aPLsDefAreas: TKMByte2Array): TKMHandIndexArray;
     var
       IdxPL,K,Cnt: Integer;
     begin
  
positive.code: end;
  
  
  procedure TBackwardFF.FindTeamDefences(var aOwners: TKMHndIdxArray; var aDefPosReq: TKMWordArray; var aTeamDefPos: TKMTeamDefPos);
  var
    SeparatedDefLines: TKMDefLinesArray;
    DefLinesReq: TKMWordArray;
  
negative.code: end;
  
  
  function TForwardFF.FindTeamDefences(var aOwners: TKMHandIndexArray; var aDefPosReq: TKMWordArray; var aTeamDefPos: TKMTeamDefPos): Boolean;
  begin
    fOwner := aOwners[0];
    fFirstLine := 0;
  