путь от одной вершины графа к другой

[Катя Горбачева]

В не взвешенном графе нужно найти путь от одной вершины к другой.
Нужно реализовать на языке Pascal. Просто я ее почему-то не очень понимаю
Заранее спасибо!!!

[Катя Горбачева]

Люди неужели никто не знает.

[3BEPOBOY]

Навероне знает. Просто вопрос уж слишком по дурацки поставлен. Ответ на него курсовая "под ключ". Да и элементарно данных не хватает. Какой граф вы не пишете. По какому принципу искать путь... Там несколько несложных методов математических есть, которые вам на лекциях должны давать были. А закодить их элементарно.

[Катя Горбачева]

простите я наверно не совсем корректно выразилась
у меня программа работает только когда начало и конец пути совпадает, не могли бы вы сказать где ошибка ПОЖАЛУЙСТА.(граф не ориентирован, на лекциях нам никаких методов не давали, простите если я не правильно выразилась)
uses crt;
var a:array[1..200,1..200] of byte; {матрица для смежности графа}
bil:array[1..200] of boolean; {матрица для записи уже просмотренных вершин}
put:array[1..300] of integer; {матрица пути}
i,n,j,p,na,kon,dl,odl,kz:integer;
kol:integer;
f:text; {граф задается из файла}
procedure enter;
begin
assign(f,'input.txt');
reset(f);
read(f,n);
for i:=1 to n do
begin
for j:=1 to n do
read(f,a[i,j]);
end;
close(f);
end;
procedure print;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
end;
procedure poisk(ng,kg,c:integer);
var ii:integer;
begin
if ng=kg then begin {если дошли до конца пути, то выводим путь}
write('way:');
for ii:=1 to c-1 do
write(put[ii],' ');
writeln;

end
else begin { ищем промежуточные путь после ng}
for ii:=1 to n do
if (a[ng,ii]<>0) and (bil[ii]<>true){вершины связаны и текущая вершина }
then begin {не рассмотрена}
put[c]:=ii;
bil[ii]:=true;
poisk(ii,kg,c+1);{ищем путь до конечной вершины (рекурсивно)}
put[c]:=0; {c вершины ii могут быть другие пути,}
bil[ii]:=false;{поэтому открываем путь от вершины ii}
end;
end;
end;
procedure enterparam;
begin
write('vvedite start and end');
readln(na,kon);
fillchar(bil,sizeof(bil),false);
put[1]:=na; {запомним начало пути}
bil[na]:=true; {вершина рассмотрена}
p:=1; {1 - ое звено найдено }
poisk(na,kon,p+1); {ищем следующее (2-ое звено)}
end;
begin
clrscr;
enter;
print;
enterparam;
readkey;
end.

[Катя Горбачева]

В текстовом файле сначала нужно (в первой строке) указать количество вершин, а дальше (со 2-й строчки) уже матрицу смежности

[Son Of Pain]

Напиши пример исходных данных, на которых оно не работает )