anchor.diff:      res : boolean;
   begin
     res := false;
  -  for i := 0 to unitStackPos - 1 do
  +  for i := 0 to unitForAnalyse.Count - 1 do
     begin
       if SameText( unitForAnalyse[i], name ) then
         res := true;
  
positive.code:   while str[i] <> ';' do
      dec(i);
    delete( str, i, length(str) - i + 1 );  // delete ';'
    nonSystemUnit[numUnit] := str;
    nonSystemUnitFile[numUnit] := filename;
  
    Close( f );
  end;
  
negative.code:     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;
  