PROGRAM Scope1(Output);
    TYPE
        Person = RECORD         { | Male and Female constants identifiers are  }
            Sex: (Male, Female) { | defined inside a record, but are accessible}
        END;                    { | in all enclosing block                     }
    VAR
        A: Person;
BEGIN
    A.Sex := Male;

    IF A.Sex = Male THEN        { Male and Female are accessible here          }
        WriteLn('male')
END.