Two questions - Cross Referencing (Automated label generation + Random items)

[Curious Learn <curiouslearn@gmail.com>]

As I mentioned earlier, I am trying to use Context to make a multiple choice
test. I have two questions.

(1) Suppose I want to get a list of answers to the the multiple choice
questions. One way I can think of doing this is by assigning a label to the
CORRECT answer as done in the following code and then referring to that label.
Is there a way these labels can be generated automatically, instead of
hardcoding them as I have done below? 

defineenumeration[problem][text= ,location=inleft] 
\setupenumerations[problem][stopper=)]

\defineitemgroup[choices][levels=1] 
\setupitemgroup[choices][1][a,packed]
\nextrandom

\starttext 

   \problem This is the first question.
     \startchoices      
             \startitem This is incorrect answer 1. \stopitem   
             \startitem This is a wrong answer too. \stopitem
    	     \startitem[1] This is the CORRECT answer. \stopitem   
             \startitem Yet another wrong answer. \stopitem
     \stopchoices

   	\problem This is the second question.
	     \startchoices        
	           \startitem[2] This is the CORRECT answer. \stopitem   
	           \startitem This is a wrong answer too. \stopitem
	    	   \startitem This is not a correct choice. \stopitem   
	           \startitem Yet another wrong answer. \stopitem
	     \stopchoices


Answers to the questions
  
\in[1]

\in[2]    

\stoptext 

(2) When I add the option "random" to the itemgroup
(\setupitemgroup[choices][1][a,packed,random]) then as expected the choices are
listed in a random order. However, the label does not change with the choice
listing. I want the reference to be attached to the CORRECT answer, which
changes its position with random option. Is there a way to have the reference
reflect the letter corresponding to the correct answer.

Thanks in advance for your help. I really appreciate it.     

___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : https://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________