program MyRecordDemo2;

uses
 Forms;

type
 AddressType = record
  Street: String[50];
  City: String[20];
 end;

 PersonType = record
  FirstName: String[10];
  LastName: String[20];
  HomeAddress: AddressType;
  WorkAddress: AddressType;
 end;


var
 Person: PersonType;

begin
 Person.FirstName := 'Don';
 Person.LastName := 'Osier';

 Person.HomeAddress.Street := '1414 Your St.';
 Person.HomeAddress.City := 'MyTown';

 Person.WorkAddress.Street := '14 Big Business Road';
 Person.WorkAddress.City := 'NoOzone';

 Writeln(Person.FirstName);
 Writeln(Person.LastName);

 Writeln(Person.HomeAddress.Street);
 Writeln(Person.HomeAddress.City);

 Writeln(Person.WorkAddress.Street);
 Writeln(Person.WorkAddress.City);

 Readln;
end.