Метод северо-западного угла, транспортная ЗЛП

procedure TForm21.SpeedButton5Click(Sender: TObject);
var
i,j,sum, rc, cc: integer;
 begin
begin
StringGrid9.ColCount := StringGrid4.ColCount;
StringGrid9.RowCount := StringGrid4.RowCount;
for i:=0 to StringGrid9.ColCount do
for j:=0 to StringGrid9.RowCount do
StringGrid9.Cells[i,j]:= StringGrid4.Cells[i,j];
end;
begin
 rc:=StringGrid9.RowCount-2;
 cc:=StringGrid9.ColCount-2;
 end;
 for i:=1 to rc do
 for j:=1 to cc do
begin koef[i,j]:=StrToInt(StringGrid9.Cells[j,i]); end;
 
 for i:=1 to cc do
begin need[i]:=StrToInt(StringGrid9.Cells[i,rc+1]); end;
 
 for i:=1 to rc do
begin fund[i]:=StrToInt(StringGrid9.Cells[cc+1,i]); end;
 
 for i:=1 to rc  do
  for j:=1 to cc do
   if (fund[i] <> 0) and (need[j] <> 0)
    then
     if fund[i] >= need[j]
      then
       begin
        mas[i,j]:=need[j];
        fund[i]:=fund[i]-need[j];
        need[j]:=0;
       end
      else
       begin
        mas[i,j]:=fund[i];
        need[j]:=need[j]-fund[i];
        fund[i]:=0;
       end
    else mas[i,j]:=0;
 
 sum:=0;   
 for i:=1 to rc do
  for j:=1 to cc do
   begin
    StringGrid9.Cells[j,i]:=StringGrid9.Cells[j,i];
    sum:=sum+mas[i,j]*koef[i,j];
   end;
Label8.Caption := 'Затраты = ' + IntToStr(sum);
 end;