anchor.diff:    inherited;
   end;
   
  +procedure TPasSyntaxTreeBuilder.ProceduralType;
  +begin
  +  FStack.Push(sTYPE).SetAttribute(sNAME, Lexer.Token);
  +  try
  +    inherited;
  +  finally
  +    FStack.Pop;
  +  end;
  +end;
  +
   procedure TPasSyntaxTreeBuilder.ProcedureDeclarationSection;
   begin
     FStack.Push('method');
  
positive.code:   end;
  end;
  
  procedure TPasSyntaxTreeBuilder.StatementList;
  begin
    FStack.Push('statements', False);
  
negative.code: end;
  
  procedure TPasSyntaxTreeBuilder.StringType;
  begin
    FStack.Push(sTYPE).SetAttribute(sNAME, Lexer.Token);
    try
      inherited;
    finally
      FStack.Pop;
    end;
  end;
  
  procedure TPasSyntaxTreeBuilder.StructuredType;
  begin
    FStack.Push(sTYPE).SetAttribute(sNAME, Lexer.Token);
    try
  