Каков принцип работы с указателями???

[Tanusha_221]

...можете откомментить те строчки, где мне непонятно....? Я суть не пойму...


type

TTree = ^TNode; //?
TNode = record
value : integer;
left, right : TTree;//?
end;




// Создание элементов дерева

procedure Insert (var Root : TTree; x : integer);

procedure CreateNode (var p : TTree; n : integer);
begin
new(p);//выделяем память под что?
p^.value := n;//?
p^.left := nil;//?
p^.right := nil;//?
end;

begin
if Root = nil then
CreateNode (Root, x)
else
with Root^ do //?
begin
if value <= x then //?
Insert (right, x) //?
else
Insert (left, x) //?
end;
end;




// Уничтожение дерева

procedure Delete (t : TTree);
begin
if t = nil then //?
exit;

Delete (t^.right);//?
Delete (t^.left);//?
Dispose(t);//?
end;