anchor.diff:            graph[id][dep_id] := dep_type;
             if ( not IsUnitInAnalyseList( str ) ) and ( not IsUnitAnalysed( str ) ) then
             begin
  -            if unitStackPos >= unitForAnalyseArrayLength then
  -            begin
  -              unitForAnalyseArrayLength := unitForAnalyseArrayLength + 32;
  -              SetLength( unitForAnalyse, unitForAnalyseArrayLength );
  -            end;
  -              unitForAnalyse[unitStackPos] := str;
  -              inc(unitStackPos);
  +              unitForAnalyse.Add( str );
             end;
           end;
         end;
  
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:   rewrite( f );
  
    writeln( f, 'id;name' );
    for i := 0 to nonSystemUnit.Count - 1 do
      writeln( f, i, ';' ,nonSystemUnit[i] );
  
    writeln(f);
    writeln( f, 'id1;id2;type' );
    for i := 0 to unitAnalysed.Count - 1 do
    begin
      id := GetUnitId( unitAnalysed[i] );
      for j := 0 to nonSystemUnit.Count - 1 do
      begin
        if graph[id][j] > 0 then
          writeln( f, id, ';', j, ';', graph[id][j] );
  