Дано предложение. все буквы "е" в нем заменить на букву "и" - QBasic

Дано предложение. все буквы "е" в нем заменить на букву "и" нужна программа на qbasic

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

INPUT a$
FOR i=1 TO LEN(a$)
x$=MID$(a$,i,1)
IF x$="е" THEN MID$(a$,i,1)="и"
b$=b$+MID$(a$,i,1)
NEXT i
PRINT b$

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

Вводится предложение в переменную a$.
Запускается цикл от 1 до длины строки в переменной a$ (LEN(a$)).
В каждой итерации цикла, в переменную x$ записывается один символ из строки a$ (MID$(a$,i,1)).
Если символ равен е, то он заменяется на и (MID$(a$,i,1)=и).
Замененный символ добавляется к переменной b$ (b$=b$+MID$(a$,i,1)).
После завершения цикла выводится измененное предложение (PRINT b$).