anchor.diff:   IsSorted:=false;
   end;
   
  -function TFLREIntegerList.AddSorted(Item:longint):longint;
  +procedure TFLREIntegerList.AddSorted(Item:longint);
   var i:longint;
   begin
    if IsSorted then begin
  
positive.code:             end else begin
               raise EFLRE.Create('Duplicate named group');
              end;
              result:=NewNode(ntPAREN,ParseDisjunction,nil,nil,0);
              result^.Value:=Value;
             end;
            end;
            'P':begin
  
negative.code:        destructor Destroy; override;
         procedure Clear;
         function Add(Item:longint):longint;
         procedure AddSorted(Item:longint);
         procedure Insert(Index:longint;Item:longint);
         procedure Delete(Index:longint);
         function Remove(Item:longint):longint;
  