anchor.diff:      for I := 0 to Length(aAvaiableGroups) - 1 do
         Inc(  GTArr[ aAvaiableGroups[I].GroupType ]  );
   
  -    CompaniesCnt := Max(1, Round(Length(aAvaiableGroups) / MAX_GROUPS_IN_COMPANY));
  +    CompaniesCnt := Max(1, Ceil(Length(aAvaiableGroups) / MAX_GROUPS_IN_COMPANY));
       HighAG := Length(aAvaiableGroups) - 1;
       for I := 0 to CompaniesCnt - 1 do
       begin
  
positive.code:           end;
         end;
  
        SetLength(Groups, GCnt-1);
        fattack.CreateCompany(aTargetPoint, Groups);
      end;
    end;
  
negative.code:           else if (aAvaiableGroups[K].GroupType = GT) then
            begin
              if (Length(Groups) <= GCnt) then
                SetLength(Groups, GCnt + MAX_GROUPS_IN_COMPANY);
              Groups[GCnt] := aAvaiableGroups[K];
              GCnt := GCnt + 1;
              aAvaiableGroups[K] := aAvaiableGroups[HighAG];
  