Не заканчивается цикл

    repeat
//      repeat
        for finishYcount:=0 to finishY do
        begin
 
 
 
        asm
                 JMP     logic
        end;
        logic1:
          logic := @logic2;
        goto logic4;
        logic2:
          Edge := @Edge3;
        logic := @logic3;
        logic3:
        TracerY := y - steps1;
        if TracerY < 0 then
        begin
          formula1:= stepFrequent * y + znak *trunc(y / (SummSteps));
          TracerX := RazmerX - formula1;
          if TracerX < 0 then TracerX := 0;
          TracerY := 0;
        end else TracerX := 0;
        logic4:
          steps := stepsBig;
        upperCycle:
        repeat
          if steps = 0 then
          begin
            Biger:=stepRareC;
            BFcalc := x - stepRareC+1;
            steps := SummSteps;
          end
          else
          begin
            Biger:=stepFrequentC;
            BFcalc := x - stepFrequentC+1;
          end;
          if BFcalcP^ < finishP^ then Biger := Biger+(BFcalc-finish);
          for BFCount :=1 to Biger do begin
          //lowerCycle:
          //repeat
            //////////////////////////////////////////////////////////////////////////////////////////////////
            {%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}
 
          end;
 
          asm
                   JMP     Edge
          end;
          Edge1:
            //подсчёт шагов в первой строке - других расчётов для первой строки не требуется и знание этого значения нужно для последней строки
            Inc(steps1);
          goto Edge3;
          Edge2:
            //трассировку начальной ячейки каждого шага последней обрабатываемой строки кроме правого столбца
          if RazmerX > RazmerY then begin
                  Dec(steps1);
          TracerX := x - ( znak*sign(trunc((1+sign(y-trunc(y/(SummSteps))*(SummSteps)-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 := @p1;
          goto Edge4;
          Edge3:
            p := @p2;
          Edge4:
            Dec(steps);
 
        until x < 0;////////////////////////////////////////////////////////
        Inc(y);
        p := @p1;
        x := xRazmerX;
//      until y > finishY;
        end;
      Edge := @Edge2;
      finishY:=1;
    until y > yRazmerY;