Заменить в строке введеном с клавы все буква «а» на «о» — QBasic(Бейсик)

word1$ = ""
INPUT "Type a string"; word1$
FOR i = 1 TO LEN(word1$)
    IF UCASE$(MID$(word1$, i, 1)) = "A" THEN MID$(word1$, i, 1) = "O"
NEXT
PRINT word1$