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

{$I B:FIXHEAP.SRC}

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