Поиск в ширину в графе Опции

[Aleks]

Помогите решить задачу
Напишите и используйте в программе процедуру поиска в ширину в графе, заданном списками инцидентности. Выведите на экран номера всех вершин в порядке очередности просмотра.

я не знаю с чего начать, посмотрел в "FAQ" но не смог разобраться

[Aleks]

а как процедура выводит связи с другими вершинами? откуда она их берет?

Код

procedure print_ver;
var
i: integer;
begin
{вывод i вершины и ее смежные вершины}
 for i:=1 to raz do
 begin
   write(ver[i],'->');
   m[i]:= lst[i];
   if m[i]<>nil then
   repeat
      write(m[i]^.inf,'=');
      m[i]:= m[i]^.next;
   until m[i]= nil;
   writeln('$');
 end;
end;