Обход графа в ширину.

[ZhooZhik]

Вот процедура обхода. Не могу понять зачем массив S задан. Объясните пожалуйста. И если не сложно напишите коментрии к процедуре. А я то не могу до конца разобраться. Заранее спасибо.

  var
 n, k, i, j, nk :integer;
 c : array[1..100,1..100] of integer;
 s: array [1..100] of integer;
 o : array [1..100] of integer;

procedure width(x:integer);
 var
  y,p : integer;
 begin
  o[1]:=x; k:=1; p:=0;
  s[x]:=nk;
  while p<>k do begin
   p:=p+1; y:=o[p];
     for i:=1 to n do
         if c[y,i] > 0 then 
            if s[i] = 0 then
            begin
               	k:=k+1; o[k]:=i; s[i]:=nk;
            end;
  end;
end;

[Stilet]

Это неполный код, но похоже на то что в S вписывается флаг, показывающий достижение границы скажем "графа"...