Путь в графе

procedure TForm1.FormActivate(Sender: TObject);
var
 i:integer;
begin
  for i:=1 to 10 do
   StringGrid1.Cells[0,i]:=IntToStr(i);
  for i:=1 to 10 do
   StringGrid1.Cells[i,0]:=IntToStr(i);
 
 StringGrid1.Cells[1,2]:='1';
 StringGrid1.Cells[2,1]:='1';
 StringGrid1.Cells[1,3]:='1';
 StringGrid1.Cells[3,1]:='1';
 StringGrid1.Cells[1,4]:='1';
 StringGrid1.Cells[4,1]:='1';
 StringGrid1.Cells[3,7]:='1';
 StringGrid1.Cells[7,3]:='1';
 StringGrid1.Cells[4,6]:='1';
 StringGrid1.Cells[6,4]:='1';
 StringGrid1.Cells[5,6]:='1';
 StringGrid1.Cells[6,5]:='1';
 StringGrid1.Cells[5,7]:='1';
 StringGrid1.Cells[7,5]:='1';
 StringGrid1.Cells[6,7]:='1';
 StringGrid1.Cells[7,6]:='1';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
const
  N=10;
var
 map:array[1..N,1..N] of integer;
 road:array[1..N] of integer;
 incl:array[1..N] of boolean;
 start,finish:integer;
 found:boolean;
 i,j:integer;
procedure step(s,f,p:integer);
var
 c:integer;
 i:integer;
begin
  if s=f then
  begin
   found:=TRUE;
   label1.Caption:=label1.Caption+#13+'Шлях:';
   for i:=1 to p-1 do
    label1.Caption:=Label1.Caption+' '+IntToStr(road[i]);
  end
  else begin
  for c:=1 to N do
   begin
    if (map[s,c]<>0) and (NOT incl[c])
     then begin
      road[p]:=c;
      incl[c]:=TRUE;
      step(c,f,p+1);
      incl[c]:=FALSE;
      road[p]:=0;
    end;
  end;
end; end; 
begin
label1.Caption:=' ';
 for i:=1 to N do road[i]:=0;
 for i:=1 to N do incl[i]:=FALSE;
 
 for i:=1 to N do
 for j:=1 to N do
  if StringGrid1.Cells[i,j]<>' '
   then map[i,j]:=StrToInt(StringGrid1.Cells[i,j])
   else map[i,j]:=0;
 
start:=StrToInt(Edit1.Text);
finish:=StrToInt(Edit2.Text);
 
road[i]:=start;
incl[start]:=TRUE;
 
step(start,finish,2);
if not found
 then Label1.Caption:='Вказані точки не зєднані!';
end;
end.