кратчайшие расстояния между вершинами

[pum-pum-pum]

не могли бы вы мне помочь
что добавить в поиск в ширину чтобы он искал соседей для каждой вершина, а не только для первой как у меня ....

вот моя программа...

const
maxn = 200000;

const
queue_size = maxn;

type
item = integer;

queue = record
a: array [0..queue_size] of item;
head, tail: integer;
end;

var
p,head,next,too: array [1..maxn] of integer;
q: queue;
visited: array [1..maxn] of boolean;
i,n,o,po: integer;
nn,u,v: integer;

procedure init_queue(var q: queue);
begin
q.head := 0;
q.tail := 0;
end;

procedure push_to_queue(var q: queue; x: item);
begin
with q do
begin
a[tail] := x;
tail := (tail + 1) mod queue_size;
end;
end;

function pop_from_queue(var q: queue): item;
begin
with q do
begin
pop_from_queue := a[head];
head := (head + 1) mod queue_size;
end;
end;

function is_queue_empty(const q: queue): boolean;
begin
is_queue_empty := q.head = q.tail;
end;

function get_queue_top(const q: queue): item;
begin
get_queue_top := q.a[q.head];
end;



procedure bfs(v: longint);
begin
init_queue(q);
push_to_queue(q, v);
p[v] := 0;
visited[v] := true;

while not is_queue_empty(q) do
begin
v := pop_from_queue(q);
po:=head[v];
while po>0 do
begin
o:=too[po];
if not visited[o] then
begin
p[o] := v;
visited[o] := true;
push_to_queue(q, o);
end;
po:=next[po];
end;
end;
end;


procedure print_path(x, y: longint);
begin
if x <> y then
print_path(x, p[y]);
write(y, ' ');
end;



begin
fillchar(p, sizeof(p), 0);
fillchar(visited, sizeof(visited), false);
reset(input, '1.txt'); rewrite(output,'2.txt');

read(n);
read(nn);

fillchar(head, sizeof(head), 0);
i:=1;
while i <= 2*nn do
begin
read(u, v);
next[i] := head[u];
too[i] := v;
head[u]:= i;
inc(i);

next[i] := head[v];
too[i] := u;
head[v]:= i;
inc(i);
end;

for i := 1 to n do
if not visited[i] then bfs(i);

writeln('breath-first search (shortest path)');

for i := 1 to n do
begin
write('[', 1, '->', i, '] ');
print_path(1, i);
writeln;
end;
end.

[pum-pum-pum]

неужели мне никто не может помочь?((((