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

[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]

А вот как задать граф я не понимаю.

Больше похоже на дерево, а не на граф.

Я в таких случаях пользуюсь приемом, подсмотренным в TurboVision в свое время (у них подобным образом организуются меню любой вложенности - одним вызовом):

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

procedure walk(p: ukazatel; level:integer);
begin
  writeln('':2*level, p^.data);
  if p^.left<>nil then walk(p^.left, level+1);
  if p^.right<>nil then walk(p^.right, level+1);
end;

function it(value : integer; L, R : ukazatel) : ukazatel;
var p : ukazatel;
begin
   new(p);
   with p^ do
   begin
      data := value;
      left := L;
      right := R;
   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, nil, nil),
                    nil
                   )
                 )
           );

  walk(root, 0); { <--- Выводим, что получилось}
  { Не забудь удалить структуру }
end.