Граф и ссылки, Как задать граф с помощью динамич. структур данных. Опции

[looogle]

Есть такой код. Универсальный способ обхода древовидного графа. С ним я разобрался. А вот как задать граф я не понимаю.

Граф:

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.
 

Пожалуйста, помогите.

[IUnknown]

У дерева не очень принято называть этот элемент "голова" или "хвост". Обычно у деревьев бывает "корень", из которого все и растёт. Вот тут как раз и есть Root (в переводе - корень)

[looogle]

У дерева не очень принято называть этот элемент "голова" или "хвост". Обычно у деревьев бывает "корень", из которого все и растёт. Вот тут как раз и есть Root (в переводе - корень)

Да-да. Это я и имел ввиду. Спасибо.
Вот конечный код, если интересно.

P.S. Что значит удалить структуру?

uses GraphABC;

type
  ukazatel = ^tree;
  tree = record
    x: integer;
    y: integer;
    left: ukazatel;
    right: ukazatel;
    data:integer;
  end;

procedure walk(p: ukazatel; x,y,level,xp,yp: integer);
var s:string;
begin
  if p^.left <> nil then walk(p^.left, x-(150 div level), y+30, level+1, x, y);
  if p^.right <> nil then walk(p^.right, x+(150 div level), y+30, level+1, x, y);
  MoveTo(x,y);
  LineTo(xp,yp);
  s:=IntToStr(p^.data);
  p^.x := x;
  p^.y := y;
  Circle(x,y,13);
  TextOut(x-5,y-5,s);
end;

function it(datav:integer; L, R: ukazatel): ukazatel;
var
  p: ukazatel;
begin
  new(p);
  with p^ do
  begin
    left := L;
    right := R;
    data := datav;
  end;
  it := p;
end;

var
  root: ukazatel;

begin
  root :=  it(2,
              it(7,
                 it(2, nil, nil),
                 it(6,
                    it(5, nil, nil),
                    it(11, nil, nil)
                   )
                ),
              it(5,
                 nil,
                 it(9,
                    it(4, it(22, it(55, nil, nil), nil), nil),
                    nil
                   )
                 )
           );
 
  walk(root, 250, 250, 1, 250, 250);
end.