Реализация кучи с указателями.

[Petro12]

не получается реализовать процедуру вставки.нужно чтобы куча была полной.

[Petro12]

procedure Insert(var Root,last: pnode; X: T);
procedure CreateNode(var p,last,f: pnode; n: T);
begin
New(p);
p^.info:= n;
p^.Left := nil;
p^.Right := nil;
p^.father:=f;
last:=p;
end;
begin
if Root = nil Then CreateNode(Root,last,root,X)
else begin q:=root;
with Root^ do begin
if info<=X then begin
if last=left then Insert(right,last,q, X)
else insert(left,last,root,x); end
else
if last=left then
begin
Insert(right,last, X); sw(root,right); end
else begin insert(left,last,x); sw(root,left); end;



end;
end;
end;

[Petro12]

Не понимаю как организовать заполнения слева на право.