anchor.diff:  procedure TDependenciesGrapher.Analyse();
   var
       nonSysUnId : integer;
  -begin
  +    i, j: Integer;
  +begin
  +
  +  SetLength( graph, numNonSysUnit, numNonSysUnit );
  +  for i := 0 to numNonSysUnit - 1 do
  +    for j := 0 to numNonSysUnit - 1 do
  +      graph[i][j] := 0;
  +
     repeat
  +  if unitAnalysedCount >= unitAnalysedArrayLength then
  +  begin
  +    unitAnalysedArrayLength := unitAnalysedArrayLength + 32;
  +    SetLength( unitAnalysed, unitAnalysedArrayLength );
  +  end;
  +
       unitAnalysed[unitAnalysedCount] := unitForAnalyse[unitStackPos-1];
       inc(unitAnalysedCount);
       dec(unitStackPos);
  
positive.code:   for i := 0 to unitAnalysedCount - 1 do
    begin
      id := GetUnitId( unitAnalysed[i] );
      for j := 0 to MAX_UNITS_NUM - 1 do
      begin
        if graph[id][j] > 0 then
          writeln( f, id, ';', j, ';', graph[id][j] );
  
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;
  