Из заданного предложения ,начиная с первой встретившейся буквы А ,скопировать в новую строчку все символы до первой встретившейся буквы Я. Напечатать исходный текст и полученную строку- QBasic(Бейсик)

INPUT "Введите предложение: ", text$
startPos = INSTR(text$, "А")
endPos = INSTR(text$, "Я")
newText$ = MID$(text$, startPos, endPos - startPos + 1)
PRINT "Исходный текст: "; text$
PRINT "Полученная строка: "; newText$