PROGRAM T6P6P5P3D4(OUTPUT);
TYPE
   REKORD = RECORD
             A : INTEGER;
             B : BOOLEAN
            END;
VAR
   PTR : REKORD;
BEGIN
   DISPOSE(PTR);
   WRITELN(' ERROR NOT DETECTED...6.6.5.3-4')
END.