anchor.diff:      procedure SkipToUses();
       procedure ReadDepAndFillGraph( id : integer; dep_type : integer );
     public
  +    constructor Create();
       procedure BuildGraph( pathToDpr : string );
       procedure PrintOutput( path : string );
     end;
   
   implementation
   
  +
  +constructor TDependenciesGrapher.Create();
  +begin
  +  inherited Create;
  +  unitForAnalyse := TStringList.Create();
  +  unitAnalysed := TStringList.Create();
  +  nonSystemUnit := TStringList.Create();
  +  nonSystemUnitFile := TStringList.Create();
  +end;
   
   procedure TDependenciesGrapher.BuildGraph( pathToDpr : string );
   var path : string;
  
positive.code:     res : boolean;
  begin
    res := false;
    for i := 0 to unitAnalysedCount - 1 do
    begin
      if SameText( unitAnalysed[i], name ) then
        res := true;
  
negative.code:   seachInfo := FindFirstFile( pchar(path + '*.pas'), fileData );
    if seachInfo = INVALID_HANDLE_VALUE then
      exit;
    ScanUnitName( path + fileData.cFileName );
  
    while FindNextFile( seachInfo, fileData )  do
    begin
      ScanUnitName( path + fileData.cFileName );
    end;
  end;
  
  procedure TDependenciesGrapher.ScanUnitName( filename : string );
  var str : string;
      i : integer;
  begin
  