PROGRAM CDELHEAP(INPUT,OUTPUT) ;
  TYPE
    A=^B;
    B=
     RECORD
       C:INTEGER;
       D,
       E:A
     END;
  VAR
    P,
    ROOT:A;
    KEY:PACKED ARRAY [ 0..100 ] OF INTEGER;
    MAX,
    K,
    M,
    X   :INTEGER;
    BOOL:BOOLEAN;

{$I B:DELHEAP.SRC}

BEGIN  (*CDELHEAP*)
  DELHEAP ;
  FOR X := 1 TO MAX DO
    WRITE(KEY[ X ] : 4 )
END.