чтение графа заданного списком инцидентности (смежности) из файла

Program lab;
Const InitArray = 10;
Const FileName = 'lab.in';
Var
 NumberHeads : Integer;
Type List = ^Node;
 Node = Record
 Data : Word;
 Next : List;
End;
Type TypeGraph = Array [1..InitArray] Of List;
Var Graph : TypeGraph;
 
Procedure ShowGraph(Var Graph:TypeGraph; N:Integer);
Var
 I : Integer;
 BufferList : List;
Begin
 For I:=1 To InitArray Do Begin
  Write(I,' - ');
  BufferList:=Graph[I];
  BufferList:=BufferList^.Next;
  If BufferList = NIL Then Continue;
  While(BufferList^.Next<>NIL) Do Begin
   Write(BufferList^.Data,' ');
   BufferList:=BufferList^.Next;
  End;
  Write(BufferList^.Data,' ');
 End;
End;
 
Procedure ReadFile;
Var
 InputFile : Text; 
 ReadValue : word;
 BufferList : List;
begin
 Assign(InputFile, FileName);
 Reset(InputFile);
 NumberHeads := 1;
 New(BufferList);
 While Not Eof(InputFile) Do Begin
  Read(InputFile, ReadValue);
  If ReadValue <> 0 Then Begin
   BufferList^.Data := ReadValue;
   BufferList^.Next := NIL;
   Graph[NumberHeads]^.Next := BufferList;
   write(ReadValue,' ');
  End
  Else Begin
   Writeln(' ---- ',NumberHeads,' -----');
   NumberHeads := NumberHeads+1;
  End;
 End;
 Writeln;
 NumberHeads := NumberHeads-1;
 Close(InputFile);
end;
 
Procedure InitGraph(Var Graph:TypeGraph; N:Integer);
Var I:Integer;
Begin
 For I:=1 to N do begin
  New(Graph[I]);
  Graph[I]^.Next:=NIL;
 End;
End;
 
Begin
 InitGraph(Graph, InitArray);
 ReadFile;
 Show(Graph,NumberHeads);
 Writeln;
End.