В исходной строке а$ после каждого вхождения заданного сочетания символов х$ ввести сочетание символов у$. Вывести исходную и полученную строки.- QBasic(Бейсик)

INPUT "vvedite ishodnuyu stroku ", a$
INPUT " vvedite sochetanie x ", x$
INPUT " vvedite sochetanie y ", y$
PRINT "ishodnaya stroka"
PRINT a$
FOR i = LEN(a$) - LEN(x$) + 1 TO 1 STEP -1
    IF MID$(a$, i, LEN(x$)) = x$ THEN a$ = MID$(a$, 1, i - 1 + LEN(x$)) + y$ + MID$(a$, i + LEN(x$)): f = 1
NEXT
IF f = 0 THEN PRINT "sochetaniya x v stroke net" ELSE PRINT "novaya stroka": PRINT a$