Help!! (discriminated records)

Help!! (discriminated records)

[cis.ohio-state.edu!zaphod.mps.ohio-state.edu!howland.reston.ans.net!darwi]

I would appreciate it greatly if someone would give me some help
with a problem I'm having..

The type declaration looks like this:

subtype Length_Range is Integer range 0..21;
private
   type Token(Length : Length_Range := 0) is
    record
       Text: String(1..Length);
    end record;
 Tok : Token;

I'm trying to assign a string called temp which contains ("THIS") 
to text...

I've tried:
            Tok(4).Text := temp;
            Tok(4).Text(1..4) := temp;
            Tok(4).Text(1..4) := temp(1..4);
            Tok.Text := temp;
              
  Unfortunately this is the Prof's specifications so I can't change
  anything....

  I'm using the Meridian 4.1.4 compiler..
 I would greatly appreciate it if someone/anyone could help....


~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~
                                Melonie Bennett  
                    	  melonie@bullen.gatech.edu
                       melonie@dekalb.dc.peachnet.edu 
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~