Матрица n*n и поиск нулей.

[Avus]

Здравствуйте.
Помогите решить проблему.
Дана матрица n*n, в каждой строке находится min элемент и вычитается из элементов этой строки , далее аналогично вычитается из каждого столбца. Это сделано!
Проблема заключается в этом:
Далее находится нулевой элемент, его запоминаем. Это делается в цикле до последней строки, результат выписывается в memo в виде (i работник - j работа).

[raxp]

пользуемся поиском http://www.programmersforum.ru/showthread.php?t=70310

[Avus]

Искал, но ничего подходящего не нашел. Я хочу так: открываем цикл, ищем нули с количеством 1, запоминаем его номер, и вычеркиваем элементы стоящие на пересечении этого 0(путем присвоения значения - 1).
У меня Проблема с присвоением элеметам столбца -1. Это нужно для того чтобы затем считать оставшиеся элементы матрицы.
Вот кусок кода(Я решаю задачу о назначаниях венгерским методом):

procedure TForm1.Button1Click(Sender: TObject);
var
Form1: TForm1;
i,j,k,l:integer;
a:array[0..100,0..100] of real;
b,y,e:array[1..100] of integer;
begin
for i:=0 to 2 do
for j:=0 to 2 do begin
a[i,j]:=strtofloat(stringgrid1.cells[i,j]);
end;

for i:=0 to 2 do
for j:=0 to 2 do begin
if a[j,i]=0 then begin
b[i]:=b[i]+1;
y[i]:=j;
e[i]:=i;
end;
end;

for i:=0 to 2 do
for j:=0 to 2 do begin
if ((a[j,i]<>0) and (b[i]=1)) then begin
stringgrid1.Cells[j,i]:='-1';
end;
end;
for i:=0 to 2 do begin
for j:=0 to 2 do begin
if ((a[i,j]<>0) and (b[i]=1)) then begin
stringgrid1.Cells[j,i]:='-1';
end;
end;
end;