Изменения

DeleteViolation(h2) for i:=0 to h2.MaxRank do if (CountViolation[i].Value = 2) FixCountViolation(i); for i:=0 to h2.MaxRank do if(CountViolation[i].Value = 1) IncCountViolation(i, SearchBrother(CountViolation[i].rmFirstviolation)); FixCountViolation(i);