program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

  type
  men = record
    case isMen:boolean of
        True: (chlen: char);
        False: (vagina: char);
  end;

var
    a:men;
begin
 a.isMen := true;
 a.vagina := 'd';
 Writeln(a.vagina);
 readln;
end.