Задача коммивояжера в матричном представлении.

[Бурундук]

Возникли проблемы с реализацией следующих этапов алгоритма:
1. Нахождение и вычет минимального элемента в строке
2. Взвешивание нулей и дальнейшее запрещение пути
Получается найти и вычесть мин. элемент в строке:

procedure TForm1.Button2Click(Sender: TObject);
var n,i,j,min:integer;
begin
//вычитаем минимальный элемент в строке
 n:=StrtoInt(edit1.Text);
 StringGrid2.ColCount:=strtoint(edit1.text);
 StringGrid2.rowCount:=strtoint(edit1.text);
 j:=0;
 for i:=0 to n-1 do {stroka}
  begin
  if (i=0)and (j=0) then
      min:=strtoint(Stringgrid1.Cells[1,0])
      else
       min:=strtoint(Stringgrid1.Cells[0,i]);
 for j:=0 to n-1 do
   if  (i<>j) then
    if strtoint(Stringgrid1.Cells[j,i])<min then min:=strtoint(Stringgrid1.Cells[j,i]);

 for j:=0 to n-1 do
  if i<>j then
   Stringgrid2.Cells[j,i]:=inttostr(strtoint(Stringgrid1.Cells[j,i])-min)
   else
   Stringgrid2.Cells[j,i]:='00'
end;
  end;

что изменить чтобы делал то же по столбцам?
кто может помочь с реализацией задачи? (объясню суть алгоритма, приложу все, что готово на данный момент)
Заранее благодарю

[[CODER]]

что изменить чтобы делал то же по столбцам?

Измените образ жизни. Начните учить программирование...
ПС. Без обид.

[Бурундук]

Да уже разобрался...теперь не знаю как высчитать коэффициенты при нулях