Определить, является ли вторая буква в слове гласной или нет. — QBasic(Бейсик)

  DIM S AS STRING, Sh AS STRING
  CLS
 
INPUT "Vvedite slovo : ", S
IF LEN(S) < 2 THEN PRINT "Slishkom korotkoe!": END
  
  Sh = "aeiou"
  FOR i = 1 TO 5
    IF LCASE$(MID$(S, 2, 1)) = MID$(Sh, i, 1) THEN Gl = 1
  NEXT
 
IF Gl = 1 THEN PRINT "Glasnaya" ELSE PRINT "Soglasnaya"