Цикл с параметром

for BFCount := variable1 downto 0 do begin  
...
end;

count:=myVariable;
if Not (count = 0) Then begin
label1:
 
dec(count);
if Not (count = 0) then goto label1;
end;

count:=myVariable;
if Not (count = 0) Then begin
label1:
 
dec(count);
if Not (count = 0) then goto label1;
end;

          count1:=finishY;//111
          if Not (count1 = 0) Then begin
          marking1:
 
                   count2:=remainderCicles;
                   if Not (count2 = 0) Then begin
                   marking2:
 
                            count3:=myVariable;
                            if Not (count3 = 0) Then begin
                            marking3:
 
                                     count4:=myVariable;
                                     if Not (count4 = 0) Then begin
                                     marking4:
 
                                             count5:=myVariable;
                                             if Not (count5 = 0) Then begin
                                             marking5:
 
                                                     count6:=myVariable;
                                                     if Not (count6 = 0) Then begin
                                                     marking6:
 
                                                             count7:=myVariable;
                                                             if Not (count7 = 0) Then begin
                                                             marking7:
 
                                                             dec(count7);
                                                             if Not (count7 = 0) then goto marking7;
                                                             end;
 
                                                     dec(count6);
                                                     if Not (count6 = 0) then goto marking6;
                                                     end;
 
                                             dec(count5);
                                             if Not (count5 = 0) then goto marking5;
                                             end;
 
                                     dec(count4);
                                     if Not (count4 = 0) then goto marking4;
                                     end;
 
                            dec(count3);
                            if Not (count3 = 0) then goto marking3;
                            end;
 
                   dec(count2);
                   if Not (count2 = 0) then goto marking2;
                   end;
 
          dec(count1);
          if Not (count1 = 0) then goto marking1;
          end;

          count1:=yRazmerY;////кроме последней строки
          if Not (count1 = 0) Then begin //2
          marking1:
          Inc(y);
          p := @p1;
          x := xRazmerX;
                  BremainderstepsFrequentCicles:=remainderstepsFrequentCicles;//3
                  BstepsSetapInLine:=stepsSetapInLine;
                  Balternation:=alternation;
                  BstepsFrequentCicles:=stepsBig;
                  BstepFrequent:=stepFrequent;///3
                  count2:=remainderCicles;//4
        TracerY := y - steps1;
        formula1:= stepFrequent * y + znak *trunc(y / (SummSteps));
        if TracerY < 0 then
        begin
          TracerX := RazmerX - formula1;
          if TracerX < 0 then TracerX := 0;
          TracerY := 0;
        end else TracerX := 0;
                   if Not (count2 = 0) Then begin
                   marking2:
 
                            count3:=BremainderstepsFrequentCicles;//5
                            if Not (count3 = 0) Then begin
                            marking3:
 
                                     count4:=BstepsSetapInLine;//6
                                     if Not (count4 = 0) Then begin
                                     marking4:
                                     Bstep:=BstepFrequent;//7///7
                                             count5:=Balternation;//8
                                             if Not (count5 = 0) Then begin
                                             marking5:
                                                     count6:=BstepsFrequentCicles;//9
                                                     if Not (count6 = 0) Then
                                                     begin
                                                     marking6:
 
                                                             count7:=Bstep;//10
                                                             //count7
                                                             if Not (count7 = 0) Then begin
                                                             marking7:
            {%REGION 'Engine'}
            asm
                     JMP     p
            end;
            p1:
            StringGrid1.Cells[px^, py^] := IntToStr(pTracerX^) + ',' + IntToStr(pTracerY^) + ',' + '1';
            //запись правого столбца
            p := @p3;
            goto p4;
            p2:
            y1:=y+1;
            //автоматическое забивание координат в местах скоса трассы
            p := @p3;
            goto p5;
            p3:
              y1:=y;
              p5:
              x1:=x-xInc;
             StringGrid1.Cells[px^, py^] := IntToStr(px1^) + ',' + IntToStr(py1^) + ',' + '0';
            //автоматическое забивание координат трассы на прямых участках
            p4:
              x:=x+xInc;
            {%ENDREGION}
                                                             dec(count7);
                                                             if Not (count7 = 0) then goto marking7;
                                                             end;///10
                                                             p := @p2; /////count7
 
                                                     dec(count6);
                                                     if Not (count6 = 0) then goto marking6;
                                                     end;//11
                                             Bstep:=stepRare;//12
                                             dec(count5);
                                             if Not (count5 = 0) then goto marking5;
                                             end;//13
                                     BstepFrequent:=stepFrequent;//14
                                     dec(count4);
                                     if Not (count4 = 0) then goto marking4;
                                     end;//15
                                     BremainderstepsFrequentCicles:=1;//16
                                     BstepsSetapInLine:=1;
                                     Balternation:=1;
                                     BstepsFrequentCicles:=remainderstepsFrequent;///16
                            dec(count3);
                            if Not (count3 = 0) then goto marking3;
                            end;//17
                            BstepFrequent:=remainder;//18
                            BremainderstepsFrequentCicles:=1;
                            BstepsFrequentCicles:=1;
                   dec(count2);
                   if Not (count2 = 0) then goto marking2;
                   end;//19
 
 
          dec(count1);
          if Not (count1 = 0) then goto marking1;
          end;  //20

     remainder:=RazmerX;
      remainderCicles:=0;///////////////////////////////////////////////////////////////
      stepsSetapInLine:=0;
      remainderstepsFrequent:=0;
      remainderstepsFrequentCicles:=0;////////////////////////////////////////////////////////////////////
      if remainder>bigStep+stepRare then  begin
      stepsSetapInLine:=trunc(RazmerX / (bigStep+stepRare));
      remainder:=RazmerX - stepsSetapInLine*(bigStep+stepRare);
      end;
 
          if remainder>stepFrequent then begin
      remainderstepsFrequent:=round(remainder/stepFrequent);
      remainder:=remainder-remainderstepsFrequent*stepFrequent;
     end;
      remainderstepsFrequentCicles:=sign(remainderstepsFrequent)*2;//+sign(stepsSetapInLine);
      if remainderstepsFrequentCicles=0 then remainderstepsFrequentCicles:=remainderstepsFrequentCicles+sign(stepsSetapInLine);
      remainderCicles:=sign(remainder)+sign(remainderstepsFrequentCicles);
      alternation:=2*sign(stepsSetapInLine);
      if stepsSetapInLine = 0 then begin
      alternation:=1;
      end;
      steps1:=sign(remainder)+stepsSetapInLine*2+remainderstepsFrequent;
 
 
 
 
 
      ////////////////////////////////////////
      RUNstepsSetapInLine:=sign(stepsSetapInLine);
      summLine:=remainder+remainderstepsFrequent*stepFrequent+stepsSetapInLine*(bigStep+stepRare);
      steps2:= sign(remainder)+remainderstepsFrequent+stepsSetapInLine*(stepsBig+1);
      myVariable:=0;
    Label1.Caption := IntToStr(stepRare)+'Rare';
    Label2.Caption := IntToStr(stepFrequent)+'Frequent';
    Label6.Caption := IntToStr(stepsBig)+'Big';
    Label7.Caption := IntToStr(remainder)+'rm';
    Label8.Caption := IntToStr(remainderstepsFrequent)+'RSF';
    Label9.Caption := IntToStr(remainderstepsFrequentCicles)+'RSFC';
    Label10.Caption := IntToStr(summLine)+'';
    end;

  p := @p6;
 x := xRazmerX;
         TracerY := y - steps1;
formula1:= stepFrequent * y + znak *trunc(y / (SummSteps));
if TracerY < 0 then
begin
 TracerX := RazmerX - formula1;
 if TracerX < 0 then TracerX := 0;
 TracerY := 0;
end else TracerX := 0;
         BremainderstepsFrequentCicles:=remainderstepsFrequentCicles;//3
         BstepsSetapInLine:=stepsSetapInLine;
         Balternation:=alternation;
         BstepsFrequentCicles:=stepsBig;
         BstepFrequent:=stepFrequent;///3
         count2:=remainderCicles;//4
         steps := stepsBig;
          if Not (count2 = 0) Then begin
          marking8:
 
                   count3:=BremainderstepsFrequentCicles;//5
                   if Not (count3 = 0) Then begin
                   marking9:
 
                            count4:=BstepsSetapInLine;//6
                            if Not (count4 = 0) Then begin
                            marking10:
                            Bstep:=BstepFrequent;//7///7
                                    count5:=Balternation;//8
                                    if Not (count5 = 0) Then begin
                                    marking11:
                                            count6:=BstepsFrequentCicles;//9
                                            if Not (count6 = 0) Then
                                            begin
                                            marking12:
 
                                                    count7:=Bstep;//10
                                                    //count7
                                                    if Not (count7 = 0) Then begin
                                                    marking13:
   {%REGION 'Engine'}
   asm
            JMP     p
   end;
   p6:
   StringGrid1.Cells[px^, py^] := IntToStr(pTracerX^) + ',' + IntToStr(pTracerY^) + ',' + '1';
   //запись правого столбца
   p := @p8;
   goto p9;
   p7:
   y1:=y+1;
   //автоматическое забивание координат в местах скоса трассы
   p := @p8;
   goto p10;
   p8:
     y1:=y;
     p10:
     x1:=x-xInc;
    StringGrid1.Cells[px^, py^] := IntToStr(px1^) + ',' + IntToStr(py1^) + ',' + '0';
   //автоматическое забивание координат трассы на прямых участках
   p9:
     x:=x+xInc;
   {%ENDREGION}
                                                    dec(count7);
                                                    if Not (count7 = 0) then goto marking13;
                                                    end;///10
            //трассировку начальной ячейки каждого шага последней обрабатываемой строки кроме правого столбца
                      if steps = 0 then  steps := SummSteps;
            if RazmerX > RazmerY then begin
                    Dec(steps1);
            TracerX := x - ( znak*sign(trunc((1+sign(y-trunc(y/(stepsBig+1))*(stepsBig+1)-steps)/2))) +  formula1)+1;
                                         if TracerX<1 then begin
                                         TracerY := y - steps1;
                                         TracerX := 0;
                                         if TracerY < 0 then TracerY := 0;
                                         end;
           end else begin
             Dec(steps1);
              TracerY := y - steps1;
              TracerX := 0;
            end;
            p := @p6;
            Dec(steps);////////
 
                                            dec(count6);
                                            if Not (count6 = 0) then goto marking12;
                                            end;//11
                                    Bstep:=stepRare;//12
                                    BstepsFrequentCicles:=1;
                                    dec(count5);
                                    if Not (count5 = 0) then goto marking11;
                                    end;//13
                            BstepFrequent:=stepFrequent;//14
                            BstepsFrequentCicles:=stepsBig;
                            dec(count4);
                            if Not (count4 = 0) then goto marking10;
                            end;//15
                            BremainderstepsFrequentCicles:=1;//16
                            BstepsSetapInLine:=1;
                            Balternation:=1;
                            BstepsFrequentCicles:=remainderstepsFrequent;///16
                   dec(count3);
                   if Not (count3 = 0) then goto marking9;
                   end;//17
                   if  BremainderstepsFrequentCicles = 0 then  begin
                            BstepsSetapInLine:=1;
                            Balternation:=1;
                   end;
                   BstepFrequent:=remainder;//18
                   BremainderstepsFrequentCicles:=1;
                   BstepsFrequentCicles:=1;
 
          dec(count2);
          if Not (count2 = 0) then goto marking8;
          end;//19

TracerX:=y-trunc(y/(stepsBig+1))*(stepsBig+1)-steps);
if Not (TracerX = 0) then TracerX:=1;
TracerX:=1+ TracerX +  formula1;
TracerX:=trunc(1+TracerX /2);
if Not (TracerX = 0) then TracerX:=1;
TracerX:=TracerX*znak +  formula1;
TracerX :=x - TracerX +1;