Списки смежности графа

type  List = ^Vertex;
 
      Vertex = record
      Ver: integer;
      next: List;
  end;
 
var
  N,R,ch:integer;
  Graph:array [1..10] of List;
 
function CreateVertex(v,k:integer):integer; //создание вершины
begin
if (Graph[k]=nil) then
  begin
  end
else
  begin
  end;
end;
 
procedure Add(v1,m,v2,n: integer);  // Äîáàâëÿåì ðåáðî
var tmp:List;
    i,j:integer;
begin
    i:=CreateVertex(v1,m); //âîçâðàùàåò íîìåð âåðøèíû â âåêòîðå
    j:=CreateVertex(v2,n);
    new(tmp);
    tmp^.ver := v1;
    tmp^.next := j;
    i := tmp;
end;
 
function CreateVertex(v,k:integer):integer;
var
begin
if (Graph[k]=nil) then
  begin
    new(tmp);
    tmp^.ver := v1;
  end
else
  begin
  end;
end;
 
procedure MakeGraph(n:integer);
// Ïîñòðîåíèå ñïèñêîâ ñìåæíîñòè ãðàôà.
var m,n,x,y,i:integer;
begin
  m:=0;
  n:=1
  for i:=1 to n do
  begin
  WriteLn('Vvedite nachalo dugi: ');
  ReadLn(x);
  WriteLn('Vvedite konec dugi: ');
  ReadLn(y);
  m:=m+1;
  n:=n+1;
  Add(x,m,y,n);
  end;
end;
 
//Âûâîä ñîäåðæèìîãî ñïèñêîâ ñìåæíîñòè, ñîîòâåòñòâóþùèõ îðèåíòèðîâàííîìó ãðàôó.
procedure PrintGraph();
var
  i:integer;
  u:List; //Ðàáî÷èé óêàçàòåëü.
begin
clrscr;
  for i:=1 to N do
  begin
    u:=Graph[i];
    if (u.next=nil) then
      begin
      Write(u.ver);
      WriteLn('--X');
      end
    else
      begin
      while (u<>nil) do
        begin
          Write(u.ver);
          Write('--->');
          u := u.next;
        end;
        WriteLn;
      end;
  end;
end;