PROGRAM a_small_record;

TYPE description = RECORD
       year    : INTEGER;
       model   : STRING[20];
       engine  : STRING[8];
       END;

VAR  cars  : ARRAY[1..10] OF description;
     index : INTEGER;

BEGIN  (* main program *)
  FOR index := 1 TO 10 DO
  BEGIN
    cars[index].year := 1930 + index;
    cars[index].model := 'Duesenburg';
    cars[index].engine := 'V8';
  END;

  cars[2].model := 'Stanley Steamer';
  cars[2].engine := 'Coal';
  cars[7].engine := 'V12';
  cars[9].model := 'Ford';
  cars[9].engine := 'rusted';

  FOR index := 1 TO 10 DO
  BEGIN
    WRITE('My ',cars[index].year:4,' ');
    WRITE(cars[index].model,' has a ');
    WRITELN(cars[index].engine,' engine.');
  END;
END.  (* of main program *)