В исходной строке а$ определить и вывести слова, перед которыми стоят младшие по алфавиту слова

CLS
c$ = "0123456789"
LINE INPUT "Vvedi chislo: ", a$
a$ = LTRIM$(RTRIM$(a$))
IF LEFT$(a$, 1) = "-" THEN b$ = MID$(a$, 2) ELSE b$ = a$
  FOR i = 1 TO LEN(b$)
     IF INSTR(1, c$, MID$(b$, i, 1)) = 0 THEN PRINT "No!": END
  NEXT
PRINT "Yes!"

CLS
DIM f AS STRING, s AS STRING
DIM slv AS STRING, Sh AS STRING
Sh = "aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ"
Sh = Sh + "аАбБвВгГдДеЕёЁжЖзЗиИйЙкКлЛмМнНоОпПрРсСтТуУфФх"
Sh = Sh + "ХцЦчЧшШщЩъЪыЫьЬэЭюЮяЯ"
LINE INPUT "Vvedi frazu : ", f
pz = 1
 DO: s = MID$(f, pz, 2)
   IF (LEFT$(s, 1) = " " AND RIGHT$(s, 1) <> " ") OR (pz = 1 AND LEFT$(s, 1) <> " ") THEN
     pe = INSTR(pz + 1, f, " ")
     IF pe THEN
     slv = MID$(f, pz + 1 + (pz = 1), pe - pz)
     ELSE slv = MID$(f, pz + 1 + (pz = 1))
     END IF
     b = INSTR(Sh, LEFT$(slv, 1))
     IF b > bo THEN PRINT RTRIM$(slv) + " ";
     bo = b
   END IF
 pz = pz + 1
 LOOP WHILE pz < LEN(f)

DIM txt AS STRING, s1 AS STRING, bukva AS STRING, slovo AS STRING, i AS INTEGER
txt = "привет Алёша Света Оля"
 
CLS
FOR i = 1 TO LEN(txt) + 1
    bukva = MID$(txt + " ", i, 1)
    IF bukva = " " THEN
        IF UCASE$(s1) < UCASE$(slovo) THEN PRINT slovo
        s1 = slovo
        slovo = ""
    ELSE
        slovo = slovo + bukva
    END IF
NEXT i