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