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

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

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

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

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

CLS
DIM a AS STRING
DIM x AS STRING
INPUT "a = "; a
 
a = " " + a + " "
i = 1
 
DO
   i2 = INSTR(i + 1, a, " ")
   x = MID$(a, i + 1, i2 - i - 1)
   m = INSTR(x, "x")
   IF m THEN
      PRINT x
      n = n + 1
   END IF
   i = i2
LOOP UNTIL i = LEN(a)
PRINT "N ="; n
 
END

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

В первой строке объявляются две переменные типа STRING: a и x.
Далее пользователю предлагается ввести строку в переменную a.
Затем в переменной a добавляются пробелы в начале и в конце строки.
Задается счётчик i равный 1.
В цикле DO-LOOP происходит поиск каждого слова в строке a, начинающегося с пробела.
Для каждого найденного слова проверяется наличие в нём символа x.
Если символ x присутствует в слове, то оно выводится на экран и к счётчику n прибавляется единица.
Код продолжается до тех пор, пока не будет достигнув конец строки (i не станет равным LEN(a)).
В последней строке выводится значение счётчика n.