Eu estou olhando para fazer uma comparação de uma seqüência de caracteres e enumeração. Eu escrevi um código de exemplo do que estou tentando. Como um tipo String e Enumerated são diferentes, como faço para fazer isso corretamente no Ada?

WITH Ada.Text_IO; USE Ada.Text_IO;

PROCEDURE ColorTest IS

   TYPE StopLightColor IS (red, yellow, green);

   response : String (1 .. 10);
   N : Integer;

BEGIN
   Put("What color do you see on the stoplight? ");
   Get_Line (response, N);
   IF response IN StopLightColor THEN
      Put_Line ("The stoplight is " & response(1..n));
   END IF;

END ColorTest;