В исходной строке определить количество слов, заканчивающихся заданным символом - QBasic

Формулировка задачи:

В исходной строке а$ определить количество слов, заканчивающихся заданным символом x$. Вывести строку, результат анализа и полученные слова

Решение задачи: «В исходной строке определить количество слов, заканчивающихся заданным символом»

Листинг программы

CLS
DIM x AS STRING
DIM s AS STRING
DIM t AS STRING
DIM y AS STRING
 
x = "x "
INPUT "TEXT = "; s
s = " " + s + " "
 
k1 = 1
DO
   k = INSTR(k1, s, x)
   IF k THEN
      FOR i = k TO 1 STEP -1
         t = MID$(s, i, 1)
         IF t = " " THEN
            y = MID$(s, i + 1, k - i)
            PRINT y: EXIT FOR
         END IF
      NEXT i
   END IF
   k1 = k + 1
LOOP UNTIL k1 = LEN(s)
END

Объяснение кода листинга программы

Установка начального значения переменной x равным x.
Ввод строки с помощью функции INPUT.
Объединение строки s с помощью оператора конкатенации и пробела.
Установка начального значения переменной k1 равным 1.
Использование цикла DO для поиска первого вхождения подстроки x в строке s. Переменная k получает первое вхождение подстроки x.
Использование цикла FOR для обработки каждого символа в строке s в обратном порядке, начиная с k до 1 с шагом -1.
Сохранение каждого символа в переменной t.
Проверка, является ли символ пробелом с помощью оператора сравнения IF.
Если символ является пробелом, то выделение подстроки y начиная с i + 1 и заканчивая k - i с помощью функции `MID$.
Вывод подстроки y с помощью оператора PRINT.
Установка значения переменной k1 равным k + 1 после каждой итерации цикла.
Цикл продолжается до тех пор, пока k1 меньше или равно длине строки s.
Конец цикла обозначается командой END.