Пояснить по возможности строки, тема "Графы. Обходы графов"

Program GRAF;
Const N=8;M=8; K=8;P=14;
Type Matrix = array [1..n, 1..m] of integer;
var Graph: Matrix;
     Visited:  array[1..n] of boolean;
      i,j,v:integer;
      jk:integer;
{процедура заполнения графа}
procedure ZAPOLNENIE(var a:Matrix);
var i,j:integer;
Begin
for i:=1 to n do//число вершин  
for j:=1 to m do//число ребер 
a[n,m]:=0;
a[1,2]:=1;a[1,4]:=1;a[1,6]:=1;
a[2,1]:=1;a[2,3]:=1;
a[3,4]:=1;a[3,5]:=1;a[3,6]:=1;
a[4,1]:=1;a[4,3]:=1;a[4,5]:=1;a[4,6]:=1;a[4,8]:=1;
a[5,3]:=1;a[1,4]:=1;a[5,6]:=1;a[5,7]:=1;a[5,8]:=1;
a[6,1]:=1;a[6,3]:=1;a[6,4]:=1;a[6,5]:=1;a[6,7]:=1;a[6,8]:=1;
a[7,5]:=1;a[7,6]:=1;a[7,8]:=1;
a[8,4]:=1;a[8,5]:=1;a[8,6]:=1;a[8,7]:=1;
end;
 
//рекурсивный поиск в глубину 
procedure DFS(v:integer);//начальная вершина
var j:integer;
begin
  if Visited[v]=false  then begin //если вершина не посещена 
  Visited[v]:=true;//сделать посещённой
    
    write(v:3); // вывод ч=вершины
    for j:=1 to N do // рекурсивно проходим все вершины //н- число всех вершин
  // каждой вершины j смежной с n 
   if Graph[v, j]<>0 then //строка столбец  //в входит в вершину j:ребро v:любая не помечанная вершина
            DFS(j);//если условие верно то выполняем поиск
  end
end;
{процедура максимальной степени}
procedure DFS123(a:matrix; var v:integer);
var i,j,max,s:integer;
begin
v:=1;//0//в очередь помешаются исходная вершина
max:=1;//0
    for i:=1 to N do begin//цикл перебора графа
    s:=0;// обнуление счётчика
     for j:=1 to N do//проход всех вершин 
       if a[i, j]=1 then // если граф имеет ребро то срабатывает счётчик
            s:=s+1;//добавляем в очередь 
  if max<s then begin // если максимальное значение меньше счётчика, то присваиваем новое значение максимуму и переменная v запоминает вершину
  max:=s;//заопминает вершину
  v:=i;//очередь перебора графа
end;
end;
end;
Begin
ZAPOLNENIE(Graph);
Writeln('Вывод графа');
for i:=1 to n do//просмтр вершин
begin
for j:=1 to m do//просмотр реер
write(Graph[i,j]:3);
writeln;
end;
 
Writeln;
for i:=1 to n do//вершин 
visited[i] := false;//как просморели все непросмотренные
for i:=1 to n do //ищем 
DFS(i);
Writeln;
DFS123(graph,jk);
 
Writeln(jk);
 
end.