[Paul Kellerman]

type

TAbstract = class
constructor create;
destructor destroy;
end;

ТНuman = class(TAbstract)
property weight: real;
property height: real;
property age: integer;
property sex: integer;
...
method sleep;
method move;
method eat;
method shit;
...
end;

TSocialHuman = class(THuman)
property citizenship: string;
property nationality: string;
property religion: string;
property maritalstatus: string;
property education: string;
property profession: string;
...
method pray; virtual; abstract;
method speak; virtual; abstract;
method write; virtual; abstract;
method fight; virtual; abstract;
method learn; virtual; abstract;
method work; virtual; abstract;
...
end;

TManager = class(TSocialHuman)
property totaltelephonecalls: integer;
property totalinternetmessages: integer;
property totalsignedpapers: integer;
method pray; override;
method speak; override;
method write; override;
end;

TSpecialist = class(TSocialHuman)
property experience: integer;
property speciality: string;
property skills: array of string;
property certificates: array of string;
property projects: array of string;
method speak; override;
method write; override;
method fight; override;
method learn; override;
method work; override;
end;

var

Ivan: TManager;
Paul: TSpecialist;