
PROGRAM DEMO_SOFTBUS;
TYPE 
REC = RECORD
        I : INTEGER;
        B : BOOLEAN
      END;
VAR
REC1 : REC;
BEGIN
WITH REC1 DO
BEGIN
 I := 2;
 B := TRUE;
END;
IF REC1.B THEN
WRITELN('TRUE')
ELSE
WRITELN('FALSE')
END.


