
CONST
  rac$max_array_index = 30;

TYPE
  rat$array = array [1 .. rac$max_array_index] of string (256);


