Membuat deklarasi struktur data B-Tree di PASCAL

Type Tree = ^node;
Node = record
Isi: Integer;
Left, Right: Tree;
End;

Create: membentuk binary tree yang masih kosong
Clear: mengosongkan binary tree yang sudah ada
Empty: function untuk memeriksa apakah binary tree masih kosong
Insert: memasukkan sebuah node ke dalam tree, dengan tiga pilihan: sebagai root, left child atau right child. Jika insert sebagai root, maka tree harus kosong
Find: mencari root, parent, left child atau right child dari suatu node (tree tidak boleh kosong)
Update: mengubah isi node yang ditunjuk pointer (tree tidak boleh kosong)
Retrieve: mengambil data dari node yang ditunjuk pointer (tree tidak boleh kosong)
DeleteSub: menghapus subtree (node beserta seluruh descendantnya), setelah itu pointer akan dipindahkan ke parent dari node yang dihapus
Traverse: mengunjungi seluruh node pada tree masing2 sekali. Hasilnya adalah urutan informasi secara linear yang tersimpan di dalam tree. Ada 3 cara traverse: Pre Order, In Order dan Post Order
Pre Order: cetak isi node yang dikunjungi, kunjungi LC, kunjungi RC
In Order: kunjungi LC, cetak isi node, kunjungi RC
Post Order: kunjungi LC, kunjungi RC, cetak isi node

Coba gambarkan diagram tree dari operasi berikut:
INSERT (ROOT,65)
INSERT (RC,5)
INSERT (LC,44)
FIND (ROOT)
INSERT (LC,31)
INSERT (LC,7)
FIND (ROOT)
FIND (RC)
INSERT (RC,12)