Граф:
type ukazatel = ^tree;
tree = record
data:integer;
left:ukazatel;
right:ukazatel;
end;
var p, root:ukazatel;
k, i:integer;
procedure treego(p: ukazatel; k:integer);
begin
P^.data := k;
if p^.left<>nil then treego(p^.left, k+1);
if p^.right<>nil then treego(p^.right, k+1);
write('Done!');
end;
begin
new(root);
treego(root, 1);
end.
Пожалуйста, помогите.