(* filename: record1.pp *)

program recordTest (output);

{

This program shows a record type definition and its use

}

TYPE

person = record

name : string;

age : integer;

sex : char;

hourlyRate : real;

end;

VAR

sam : person;

begin

writeln (' This program defines a record type, assigns a value to one of its fields');

writeln (' and prints the value assigned to the field ');

sam.name := 'Paul';

writeln (' The value is ' , sam.name);

end.