Delphi. Жадный алгоритм. Коммивояжер

[ZidanCo]

Ввожу число, определяющее количество строк и столбцов в матрицу.
При помощи random заношу числа в симметричную матрицу.
Далее приравниваю первое не нулевое значение в переменную min.
Задаю 2 цикла и ставлю условие: Если c[i,j](та самая матрица) не равно нулю и c[i,j] меньше min, тогда приравниваю новое значение в переменную min (min:=c[i,j]) и сразу в переменную F записываю значение из j, для дальнейшего перехода.

Дальше писать не стал, так как тут возникает проблема:
Решил проверить какие значения заносятся в F и обнаружил, что если новый минимум нашелся на втором месте, (то есть j должен равняться двум в этом случае), то в F заносится 0. Во всех остальных случаях все верно (минимум на 3м месте, тогда f = 3 и т.д.)
Вот код программы, но там много мусора, так как вырезал дальнейшую часть, ввиду ошибки.

procedure TForm1.Button1Click(Sender: TObject);

  var n,i,j,f,min:Integer;
  c:array [1..50,1..50] of Integer;
   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;
       i:=1;
       j:=1;
   if c[i,j]=0 then
   begin
   j:=j+1;
   min:=c[i,j];
   end
   else
   begin
   min:=c[i,j];
   f:=j;
   end;
   for j:=1 to n do
          if (c[i,j]<>0) and (c[i,j]<min) then
            begin
            min:=c[i,j];
            StringGrid2.Cells[1, 2]:=IntToStr(j);
            f:=j;
         end;
   StringGrid2.Cells[1, 1]:=IntToStr(min);
   StringGrid2.Cells[1, 3]:=IntToStr(f);
end;

[ZidanCo]

Новая проблема =)