type
  TMan = class
  public
    Name: string;
    constructor Create(const AName: string);
  end;

  TEmployee = class(TMan)
  public
    Position: string;
    constructor Create(const AName,
      APosition: string);
  end;

constructor TMan.Create(const AName: string);
begin
  Name := AName;
end;

constructor TEmployee.Create(const AName,
  APosition: string);
begin
  //call the parent constructor
  inherited Create(AName);
  Position := APosition;
end;

var
  Employee: TEmployee;
begin
  Employee := TEmployee.Create(
    'Max', 'booker');

  WriteLn('position is ', Employee.Position);
end.