alfa = packed array[1..10] of char;
status = (married, widowed, divorced, single);
mo: (jan, feb, mar, apr, may, jun,
july, aug, sept, oct, nov, dec);
pp.name.last := 'woodyard';
pp.name.first := 'edward';
p^.name.last := 'woodyard';
p^.name.first := 'edward';