Не понимаю почему не выходит из цикла

procedure TForm1.Button3Click(Sender: TObject);
label com;
var minel,buf:integer;
begin
  Button4.Enabled:=false;
  while ((SZak>0) and (SZap>0)) do
        begin
          minel:=A[1,1];
          SZak:=0;
          SZap:=0;
          for i:=1 to N do
              for j:=1 to M do
                  if((A[i,j]<minel)and(A[i,j]>0)) then
                     A[i,j]:=minel;
          if (minel=100000) then
              for i:=1 to N do
                  for j:=1 to M do
                      if (A[i,j]<minel) then
                          minel:=A[i,j];
          for i:=1 to N do
              for j:=1 to M do
                  if (A[i,j]=minel) then
                      begin
                        if (Zak[j]>Zap[i]) then
                            begin
                              B[i,j]:=Zap[i];
                              Zak[j]:=Zak[j]-Zap[i];
                              Zap[i]:=0;
                              C[i,j]:=A[i,j];
                              for z:=1 to M do
                                  A[i,z]:=100000;
                              goto com;
                            end;
                        if (Zak[j]<Zap[i]) then
                            begin
                              B[i,j]:=Zak[j];
                              Zap[i]:=Zap[i]-Zak[j];
                              Zak[j]:=0;
                              C[i,j]:=A[i,j];
                              for z:=1 to N do
                                  A[z,j]:=100000;
                              goto com;
                            end;
                        if (Zak[j]=Zap[i]) then
                            begin
                              B[i,j]:=Zap[i];
                              Zak[i]:=0;
                              Zap[j]:=0;
                              C[i,j]:=A[i,j];
                              for z:=1 to N do
                                  A[z,j]:=100000;
                              for z:=1 to M do
                                  A[i,z]:=100000;
                              goto com;
                            end;
                      end;
com:
          for i:=1 to Nmax do
              begin
                SZak:=SZak+Zak[i];
                SZap:=SZap+Zap[i];
              end;
        end;
  for i:=1 to N do
      for j:=1 to M do
          memo1.Lines.Add('ап'+IntToStr(B[i,j]));
end;