PascalABC.net список смежных вершин; поиск в ширину

[Ymti]

Помогите реализовать граф. Задание на скрине, может быть вообще не верный. WidthSearch-процедура с лекции не могу понять как реализовать.
Код :
kb.txtScreenshot_2.png

Const
 N = 8;
Var
 A:array[1..N,1..N] of integer;
 Visited: array [1..N] of byte;
 f:text;
 i:integer;
 
 
 procedure MatrSm;
 var
 i,j,g:integer;
begin
  assign(f, 'kb.txt'); reset(f);
  g:=1;
 for i:=1 to N do
  for j:=1 to N do
   Read(f, A[i,j]);
   end;
   
   
  procedure printM;
  var i,j:integer;
  begin
 for i:=1 to N do
  begin
   for j:=1 to N do
    Write(A[i,j]:3);
   Writeln;
  end;
  writeln;
end;


procedure BFS(A : Matrix; n, V : integer); 
	{ обход в ширину (V - начальная вершина) }
var i, ps, pe : integer;
   Q=record	{ "очередь" вершин }
	el: array [1..N] of integer; 
	front, rear: integer
   end;
   visited: array [1..N] of boolean; 
	{ массив посещённости вершин }
begin
  Q.front := 1; { начало очереди }
  Q.rear := 1; { конец очереди }
  Q.el[Q.rear] := v; {  в очередь помещается исходная вершина 
  visited[v] := true; { вершина V посещена }
 while Q.front <= Q.rear do begin { пока очередь не пуста }
   for i:=1 to n do
     if (A[v, i]<>0) and (not visited[i]) then begin
		{ перебираем все связные с V вершины }
	  Q.rear := Q.rear+1; { добавляем в очередь }
        Q.el[Q.rear] := i; 
        visited[i] := true; { отмечаем вершину  пройденной}
     end;
   Q.front:= Q.front+1; {переход к след. вершине в очереди}
   v := Q.el[Q.front];  {и делаем её текущей }
 end;
end;