Поиск кратчайшего пути по городам

procedure TForm1.Button1Click(Sender: TObject);
  var i,j,e:Integer;
  c:array [1..50,1..50] of Integer;
  x:array [1..50] of Integer;
  q:array [1..50] of Integer;
 
  procedure pp(const n:Integer);
  var l,i,j,v,t,f,u,m,min:Integer;
  begin
    for l:=1 to n do
      q[l]:=c[l,1];
       i:=1;
       j:=1;
       v:=1;
       t:=0;
    while t<=n do
    begin
   if c[i,j]=0 then
   begin
   j:=j+1;
   min:=c[i,j];
   end
   else
   begin
   min:=c[i,j];
 
   end;
      f:=j;
   for u:=1 to n do
   begin
      if (c[i,u]<>0) and (c[i,u]<min) then
         begin
            min:=c[i,u];
            f:=u;
         end;
   end;
   c[i,f]:=0;
   c[f,i]:=0;
   i:=f;
   x[v]:=min;
   v:=v+1;
   t:=t+1;
   for m:=1 to n do
   begin
   c[m,f]:=0;
   c[m,1]:=0;
   end;
    end;
  end;
 
   begin
  n:=StrToInt(edt1.text);
  StringGrid1.RowCount := n+1;
  StringGrid1.ColCount := n+1;
  for i:=1 to n do
  for j:=1 to n do
        begin
       if i=j then
       c[i,j]:=0
       else
       begin
       c[i,j]:=(Random(20)+1);
       c[j,i]:=c[i,j];
       end;
       StringGrid1.Cells[j, i]:=IntToStr(c[i,j]);
       StringGrid1.Cells[i, j]:=IntToStr(c[i,j]);
       end;
          pp(n);
   for e:=1 to n do
   StringGrid2.Cells[e, 1]:=IntToStr(x[e]);
end;