anchor.diff:  
   interface
   
  -uses Winapi.Windows, System.SysUtils;
  +uses Winapi.Windows, System.SysUtils, System.Classes;
   
   type
     TDependenciesGrapher = class
     private
  -    unitForAnalyse : array of string;
  -    unitForAnalyseArrayLength : integer;
  -    unitAnalysed : array of string;
  -    unitAnalysedArrayLength : integer;
  -    unitStackPos : integer;
  -    unitAnalysedCount : integer;
  -    nonSystemUnit : array of string;
  +    unitForAnalyse : TStringList;
  +    unitAnalysed : TStringList;
  +    nonSystemUnit : TStringList;
       nonSystemUnitArrayLength : integer;
  -    nonSystemUnitFile : array of string;
  -    numNonSysUnit : integer;
  +    nonSystemUnitFile : TStringList;
       graph : array of array of integer;
       f : TextFile;
       procedure ScanDpr( filename : string );
       function ReadWord() : string;
       procedure ScanForAllUnits( path : string );
       procedure ScanForUnitsInDir( path : string );
  -    procedure ScanUnitName( filename : string; numUnit : integer );
  +    procedure ScanUnitName( filename : string );
       procedure Analyse();
       procedure ScanForDep( path : string; id : integer );
       function GetUnitId( name : string ) : integer;
  
positive.code:     res : boolean;
  begin
    res := false;
    for i := 0 to unitStackPos - 1 do
    begin
      if SameText( unitForAnalyse[i], name ) then
        res := true;
  
negative.code:       begin
          if str[length(str)] <> ',' then
          begin
            unitForAnalyse.Add( str );
          end;
        end;
  
    until SameText(str, 'begin');
    unitForAnalyse.Delete( unitForAnalyse.Count - 1 );
    close( f );
  end;
  
  