Ввести строку текста и распечатать слова содержащие букву И - QBasic

DEFSTR S-T
DEFINT I-L
CLS
INPUT "Vvedite STROKU"; s
s = " " + s + " "
 
k = -1
FOR i = 1 TO LEN(s)
   t = MID$(s, i, 1)
   IF t = " " THEN k = k + 1
NEXT i
 
DIM sl(1 TO k)
 
k1 = 1
l = 1
FOR i = 2 TO LEN(s)
   j = INSTR(i, s, " ")
   IF j <> 0 THEN
      k2 = j
      t = MID$(s, k1 + 1, k2 - k1 - 1)
      sl(l) = t
      l = l + 1
      k1 = k2
      i = j + 1
   END IF
NEXT i
 
FOR i = 1 TO k
   j = INSTR(1, sl(i), "Ё")
   IF j <> 0 THEN PRINT sl(i)
NEXT i
END