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

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

constructor TMan.Create(const AName,
  ACountry: string);
begin
  //call own sibling constructor
  Create(AName);
  Country := ACountry;
end;

var
  Man: TMan;
begin
  Man := TMan.Create('Vladimir', 'Russia');

  WriteLn('country is ', Man.Country);
end.