Create heap.pas

Pascal implementation, runs about 960 - 1040 ms.