BEGIN
  RECORDFORMAT F(INTEGER I,J,K,INTEGERARRAY A,B,C(1:5))
  RECORD(F) R
  RECORD(F)NAME B
  INTEGER Q
  
  R_I='I'
  R_A(3)='x'

  B==R
  B_I='I'
  B_A(3)='x'

  Q=R_I
  Q=R_A(3)

  Q=B_I
  Q=B_A(3)

ENDOFPROGRAM