anchor.diff:    for i := 0 to unitAnalysedCount - 1 do
     begin
       id := GetUnitId( unitAnalysed[i] );
  -    for j := 0 to MAX_UNITS_NUM - 1 do
  +    for j := 0 to numNonSysUnit - 1 do
       begin
         if graph[id][j] > 0 then
           writeln( f, id, ';', j, ';', graph[id][j] );
  
positive.code: type
    TDependenciesGrapher = class
    private
      unitForAnalyse : array[0..MAX_UNITS_NUM] of string;
      unitAnalysed : array[0..MAX_UNITS_NUM] of string;
      unitStackPos : integer;
      unitAnalysedCount : integer;
      nonSystemUnit : array[0..MAX_UNITS_NUM] of string;
      nonSystemUnitFile : array[0..MAX_UNITS_NUM] of string;
      numNonSysUnit : integer;
      graph : array[0..MAX_UNITS_NUM,0..MAX_UNITS_NUM] of integer;
      f : TextFile;
      procedure ScanDpr( filename : string );
      function ReadWord() : string;
  
negative.code:       begin
          if str[length(str)] <> ',' then
          begin
            if unitStackPos >= unitForAnalyseArrayLength then
            begin
              unitForAnalyseArrayLength := unitForAnalyseArrayLength + 32;
              SetLength( unitForAnalyse, unitForAnalyseArrayLength );
            end;
            unitForAnalyse[unitStackPos] := str;
            inc(unitStackPos);
          end;
  