В исходной строке произвести циклическую перестановку слов влево на n слов

CLS
Razdelitel$ = " "     'Разделитель строки
again:
INPUT "Vvedite stroku:"; a$
olda$ = a$
  IF a$ = "" THEN PRINT "Vvedite zanovo"
INPUT "Vvedite kol-vo slov:"; n%
   ' Проверяем кол-во слов в предложении
sl% = 0: stat% = 0: oldstat% = 1
FOR i% = 1 TO LEN(a$)
  IF MID$(a$, i%, 1) = Razdelitel$ THEN stat% = 1
  IF oldstat% = 1 AND stat% = 0 THEN sl% = sl% + 1
  oldstat% = stat%
  stat% = 0
NEXT
  ' Удаляем слева все разделительные знаки
FOR i% = 1 TO LEN(a$) STEP -1
  IF MID$(a$, i%, 1) = Razdelitel$ THEN a$ = RIGHT$(a$, LEN(a$) - 1) ELSE EXIT FOR
NEXT i%
  ' Удаляем справа все разделительные знаки
FOR i% = LEN(a$) TO 1 STEP -1
  IF MID$(a$, i%, 1) = Razdelitel$ THEN a$ = LEFT$(a$, LEN(a$) - 1) ELSE EXIT FOR
NEXT i%
  ' и ставим вместо них 1 разделитель справа
a$ = a$ + Razdelitel$
  ' Циклически вертим слова
FOR i = 1 TO n%
 stat% = 0: oldstat% = 0
 DO
  LfZn$ = MID$(a$, 1, 1)
  oldstat% = stat%
  stat% = 0
  IF LfZn$ = Razdelitel$ THEN stat% = 1
  IF oldstat% = 1 AND stat% = 0 THEN EXIT DO
  a$ = RIGHT$(a$, LEN(a$) - 1) + LfZn$
 LOOP
NEXT
CLS
PRINT "ishdnaya stroka:"; olda$
PRINT "Novaya stroka:"; a$

INPUT "vvedite stroku ", a$
INPUT "vvedite kol-vo slov ", n
FOR i = 1 TO LEN(a$)
IF MID$(a$, i, 1) = " " THEN k = k + 1
IF k = n - 1 THEN b$ = MID$(a$, i + 1) + " " + LEFT$(a$, i)
NEXT
PRINT "novaya stroka:"
PRINT b$

INPUT "vvedite stroku ", a$
FOR i = 1 TO LEN(a$)
IF MID$(a$, i, 1) = " " THEN m = m + 1
NEXT
INPUT "vvedite kol-vo slov ", n
IF n > (m + 1) THEN n = n MOD (m + 1)
FOR i = 1 TO LEN(a$)
IF MID$(a$, i, 1) = " " THEN k = k + 1
IF k = n - 1 THEN b$ = MID$(a$, i + 1) + " " + LEFT$(a$, i)
NEXT
PRINT "novaya stroka:"
PRINT b$

Rzd$ = " "   'Разделитель
Again: CLS : INPUT "Vvedite stroku      :", a$   ' Ввод строки
IF a$ = "" GOTO Again   ' Если строка пуста, вводим заново
'IF MID$(a$, LEN(a$), 1) <> Rzd$ THEN a$ = a$ + Rzd$
INPUT "Skolko slov dvigat' :", n
PRINT "ishodnaya:"; : WRITE a$
IF n = 0 GOTO Ok
ReFnd: IF MID$(a$, 1, 1) <> Rzd$ AND rg = 0 THEN s = s + 1
   FOR i = 1 TO LEN(a$) - 1   'Считаем слова -> s
    IF MID$(a$, i, 1) = Rzd$ AND MID$(a$, i + 1, 1) <> Rzd$ THEN
    s = s + 1: IF rg = 1 AND s = d THEN r = i
    END IF
   NEXT
 IF rg = 0 THEN d = n MOD s: rg = 1: s = 0: GOTO ReFnd ' На сколько слов дигать
Ok: PRINT "Resultat :"; : WRITE RIGHT$(a$, LEN(a$) - r) + LEFT$(a$, r)

FOR i = 1 TO LEN(a$) STEP -1
  IF MID$(a$, i, 1) = Rzd$ THEN a$ = RIGHT$(a$, LEN(a$) - 1) ELSE EXIT FOR
NEXT