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

[Aleks]

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

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

[volvo]

А ты проходил по программе в пошаговом режиме? У тебя же некоторые значения m[i] перезаписываются новыми, при этом старые, естественно, безнадежно теряются... Попробуй прогони вот такую процедуру Add:

procedure add;
begin
  WriteLn('current i = ', i);

  new(m[i]);
  m[i]^.inf:= ver[j];
  m[i]^.next:= lst[i];
  lst[i]:= m[i];
  inc(kolvo);
end;

Как только увидишь повторяющиеся значения - потерял SizeOf(list) байт...