type
TPhone = class
public
Model: string;
end;
TEmployee = class
public
FirstName, LastName: string;
PersonalPhone: TPhone;
end;
var
NokiaPhone, IPhone18: TPhone;
Kim: TEmployee;
begin
//Create is inherited from TObject
NokiaPhone := TPhone.Create;
NokiaPhone.Model := 'Nokia 6610';
IPhone18 := TPhone.Create;
IPhone18.Model := 'iPhone 18';
Kim := TEmployee.Create;
Kim.FirstName := 'Victoria';
Kim.LastName := 'Kim';
Kim.PersonalPhone := IPhone18;
WriteLn(NokiaPhone.Model);
WriteLn(Kim.PersonalPhone.Model);
end.