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

[Aleks]

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

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

[Aleks]

Как организовать освобождение памяти не с помощью процедур Mark и Release, а последовательным удалением элементов динамической структуры с последующим освобождением памяти с помощью процедуры Dispose.

я попробовал сам, но некоторые элементы все равно остаются в памяти

procedure  delet;
var
  h: integer;
begin
  for h:=1 to raz do
  begin
    m[h]:=lst[h];
    while m[h]<> nil do
    begin
      dispose(m[h]);
      m[h]:= nil;
    end;
  end;
end;