В словах заменить первую букву "о" на букву "а" - QBasic

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

Помогите Действие с символьными переменными. Введите предложение. В словах заменить первую букву "о" на букву "а". Результат вывести на экран. Если слов, начинающихся на букву "о" нет, вывести сообщение об этом.

Решение задачи: «В словах заменить первую букву "о" на букву "а"»

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

CLS
   INPUT "Vvedi predlojenie: ", p$
   p$ = " " + LTRIM$(RTRIM$(p$))
DO: i = INSTR(i + 1, p$, "o")
   IF i = 0 THEN EXIT DO
   IF MID$(p$, i - 1, 1) = " " THEN MID$(p$, i, 1) = "a": f = 1
LOOP
IF f THEN PRINT p$ ELSE PRINT "Net slov s " + CHR$(34) + "o" + CHR$(34)

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

CLS — очистка экрана
INPUTVvedi predlojenie: , p$ — ввод предложения в переменную p$
p$ = + LTRIM$(RTRIM$(p$)) — удаление лишних пробелов и форматирование ввода
DO: i = INSTR(i + 1, p$,o) — поиск первого символа о в предложении
Если i равно 0, то выходит из цикла
Если предыдущий символ был пробелом, то заменяет символ о на а и устанавливает флаг f равным 1
Если после цикла флаг f равен 1, то выводит отформатированное предложение
Если после цикла флаг f равен 0, то выводит сообщение о том, что в предложении нет слов с буквой о