1*44106Sbostic(* 2*44106Sbostic * Test of arrays of records. 3*44106Sbostic *) 4*44106Sbostic 5*44106Sbosticmodule main; 6*44106Sbostictype 7*44106Sbostic Rec = record 8*44106Sbostic charValue : char; 9*44106Sbostic intValue : integer; 10*44106Sbostic subrange : [0..1000]; 11*44106Sbostic realValue : real; 12*44106Sbostic end; 13*44106Sbostic Arr = array [1..10] of Rec; 14*44106Sbosticvar 15*44106Sbostic a : Arr; 16*44106Sbosticbegin 17*44106Sbostic a[1].charValue := 'c'; 18*44106Sbostic a[1].intValue := 3; 19*44106Sbostic a[1].subrange := 10; 20*44106Sbostic a[1].realValue := 3.4; 21*44106Sbostic a[2].charValue := 'd'; 22*44106Sbostic a[2].intValue := 4; 23*44106Sbostic a[2].subrange := 11; 24*44106Sbostic a[2].realValue := 4.5; 25*44106Sbostic a[3].charValue := 'e'; 26*44106Sbostic a[3].intValue := 5; 27*44106Sbostic a[3].subrange := 12; 28*44106Sbostic a[3].realValue := 5.6; 29*44106Sbosticend main. 30