метод обхода в глубину, граф

[Яна696]

Вывести НЕ вершины ,а рёбра. Как это сделать? Сама прога у меня есть, но её нужно доделать.

const n=9;
C:array[0..n,0..n] of 0..1=
((...матрица смежности))
visit:array[0..n] of boolean=
(true,true,true,true,true,true,true,true,true);
var v:integer;
procedure DFS(v:integer);
var Stek:array[1..(n+1)] of 0..n;
t,Uk:integer;f:boolean;
begin
write(v:3);
Uk:=0;
Uk:=Uk+1;
stek[Uk]:=v;
visit[v]:=false;
while Uk<>0 do
begin
v:=stek[Uk];
t:=0;f:=false;
repeat
if(C[v,t]=1) and (visit[t]) then 
f:=true
else
t:=t+1;
until f or (t>n);
if f then begin
write(t:3);
Inc(Uk);
stek[Uk]:=t;
visit[t]:=false;
end
else
Uk:=Uk-1;
end;
end;
begin
writeln('поиск в глубину');
writeln('введите вершину начала поиска');
readln(v);
DFS(v);
end.