btree = ^node;
    node  = record
        d : 0..2*M;
        k : array [1..2*M] of typekey;
        p : array [0..2*M] of btree
        end;