anchor.diff:    seachInfo := FindFirstFile( pchar(path + '*.pas'), fileData );
     if seachInfo = INVALID_HANDLE_VALUE then
       exit;
  +  if numNonSysUnit >= nonSystemUnitArrayLength then
  +  begin
  +    nonSystemUnitArrayLength := nonSystemUnitArrayLength + 32;
  +    SetLength( nonSystemUnit, nonSystemUnitArrayLength );
  +    SetLength( nonSystemUnitFile, nonSystemUnitArrayLength );
  +  end;
     ScanUnitName( path + fileData.cFileName, numNonSysUnit );
     inc( numNonSysUnit );
   
     while FindNextFile( seachInfo, fileData )  do
     begin
  +    if numNonSysUnit >= nonSystemUnitArrayLength then
  +    begin
  +      nonSystemUnitArrayLength := nonSystemUnitArrayLength + 32;
  +      SetLength( nonSystemUnit, nonSystemUnitArrayLength );
  +      SetLength( nonSystemUnitFile, nonSystemUnitArrayLength );
  +    end;
       ScanUnitName( path + fileData.cFileName, numNonSysUnit );
       inc( numNonSysUnit );
     end;
  
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: procedure TDependenciesGrapher.Analyse();
  var
      nonSysUnId : integer;
      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);
  