Задача о назначении

m:=se1.Value;
  n:=se2.value;
  Edt1.Text:='';
  SetLength(C, m+1, n+1); // â íóëåâûõ ñòîëáöå è ñòðîêå ñîäåðæèòñÿ êîë-âî íóëåé
                          // â ñîîòâåòñòâóþùèõ ñòðîêàõ è ñòîëáöàõ
  SetLength(X, m+1, n+1);  // ïåðâûå ñòðîêà è ñòîëáåö íóëåâûå
  setlength(no,n+1);
  setlength(sx,m+1,n+1);
  setlength(c1,m+1,n+1);
  for i:=1 to m  do
  for j:=1 to n do
  if (strngrd1.Cells[j-1,i-1]='') and (strngrd3.cells[j-1,i-1]='') then
  begin
    ShowMessage('Íå âñå ÿ÷åéêè çàïîëíåíû!');
    strngrd1.SetFocus;
    check:=true
  end;
  if not(check) then
  begin
  for i:=1 to m do
  begin
    k:=0;
    j:=1;
    while(j<=n)and(k=0) do
    if strtoint(strngrd1.cells[j-1,i-1])<0 then k:=1
    else inc(j);
    if k=1 then
    begin
      min:=strtoint(strngrd1.cells[0,i-1]);
      for j:=1 to n do
      if min> strtoint(strngrd1.cells[j-1,i-1])then
      min:=strtoint(strngrd1.cells[j-1,i-1]);
      for j:=1 to n do
      strngrd3.cells[j-1,i-1]:=inttostr(strtoint(strngrd1.cells[j-1,i-1])-min)
     end
    else
     begin
      for j:=1 to n do
      strngrd3.cells[j-1,i-1]:=inttostr(strtoint(strngrd1.cells[j-1,i-1]))
     end
  end;
   for i:=1 to m do
   for j:=1 to n do
   c[i,j]:=strtoint(strngrd3.Cells[j-1,i-1]);
   for i:=1 to m do
   for j:=1 to n do
   sx[i,j]:=strtoint(strngrd2.Cells[j-1,i-1]);
    for j:=1 to n do
    no[j]:=1;
    for j:=1 to n do
     begin
       flag:=false;
       for i:=1 to m do
        begin
          if Sx[i,j]=1
          then flag:=true;
        end;
       if flag=false
       then no[j]:=0  // äàííóþ ðàáîòó íèêòî íå óìååò äåëàòü
     end;
     j:=0;
     k:=0;
     while j<=n do
     begin
       if no[j]=1
       then
       begin
         for i:=1 to m do
         C1[i,k]:=C[i,j];
         k:=k+1;
       end;
       j:=j+1;
     end;
     n:=k-1;
    for i:=1 to m do
   for j:=1 to n do
   x[i,j]:=0;
   L:=0;
   VengMethod(C1, X, L);
   for i:=1 to m do
   for j:=1 to n do
   strngrd4.Cells[j-1,i-1]:=IntToStr(x[i,j]);
   L:=0;
    for i:=1 to n do
    begin
    for j:=1 to n do
    if StrToInt(strngrd4.cells[j-1,i-1])=1 then
      l:=l+strtoint(strngrd1.cells[j-1,i-1])
    end;
     edt1.Text:=IntToStr(L);
  end
  else Form7.Show;