Блок-схема и математическая модель. Даны два натуральных числа. Путем перестановки цифр меньшего получить число больше большего.

CLS
INPUT "vvedite bolshee chislo ", b
INPUT "vvedite menshee chislo ", m
DIM a(10)
DO
k = k + 1
a(k) = m MOD 10
m = m \ 10
LOOP UNTIL m = 0
FOR i = 1 TO k
FOR j = 2 TO k
IF a(j) > a(j - 1) THEN SWAP a(j), a(j - 1)
NEXT
NEXT
FOR i = 1 TO k
m = m + a(i)
IF i <> k THEN m = m * 10
NEXT
IF m < b THEN PRINT "zadacha ne imeet resheniya" ELSE PRINT m; ">"; b
END

      CLS
      PRINT TAB(15);
      PRINT “Получение из меньшего числа ”;
      PRINT “путем перестановки его цифр ”;
      PRINT TAB(25);
      PRINT “числа больше большего из ”;
      PRINT “заданных.”
      PRINT
10: PRINT TAB(10);
      PRINT “Введите первое число:”;
      INPUT “ ”, b
      PRINT TAB(10);
      IF b<1 THEN
      PRINT “Введенное число не является ”;
      PRINT “натуральным.”
      PRINT TAB(10);
      PRINT “Повторяю.”
      GOTO 10
      END IF
20: PRINT TAB(10);
      PRINT “Введите второе число:”;
      INPUT “ ”, m
      PRINT TAB(10);
      IF m<1 THEN
      PRINT “Введенное число не является ”;
      PRINT “натуральным.”
      PRINT TAB(10);
      PRINT “Повторяю.”
      GOTO 20
      END IF
      PRINT TAB(10);
      IF b=m THEN
      PRINT “Вы ввели два одинаковых ”;
      PRINT “числа.”
      GOTO 30
      END IF
      IF b<m THEN SWAP b,m
      DIM a(10)
      DO
      k=k+1
      a(k)=m MOD 10
      m=m\10
      LOOP UNTIL m=0
      FOR i=1 TO k
      FOR j=2 TO k
      IF a(j)>a(j-1) TOHEN SWAP a(i),a(j-1)
      NEXT j
      NEXT i
      FOR i=1 TO k
      m=m+a(i)
      IF i<>k THEN m=m*10
      NEXT i 
      IF m<b THEN
      PRINT “Задача не имеет решения.”
      PRINT TAB(15);
      ELSE
      PRINT TAB(15);
      PRINT “Число больше большего, ”;
      PRINT “полученное путем переста-”;
      PRINT TAB(25);
      PRINT “новки цифр меньшего числа:”
      PRINT TAB(10);
      PRINT m; “>”; b
30: END IF