Определить какие латинские гласные буквы встречаются наибольшее число раз

DIM i AS INTEGER
DIM k AS INTEGER
DIM a AS STRING
DIM c(255) AS SINGLE
DIM b(10) AS STRING
 
 FOR i=1 TO 255
    c(i)=0
 NEXT
   INPUT "Vvedite tekst:";a
   b="acehijoquy"
      FOR i=1 TO LEN(b) 
        FOR k=1 TO LEN(a) 
            IF a(k)= b(i) THEN
            c(i)=c(i)+1 
            END IF          
        NEXT
      NEXT
      FOR i=1 TO 255
        IF c(i)<> 0 THEN 
        INPUT "bykva";b(i)
        INPUT "vstrechalas";c(i)
        END IF
      NEXT
        WHILE InKey()<>Chr(13)
    SLEEP 20,1
  WEND
END

CLS
DIM A AS STRING
DIM b(1 TO 5) AS STRING
DIM c AS STRING
DIM n(1 TO 5) AS INTEGER
 
DATA "a","e","i","o","u"
FOR i = 1 TO 5
   READ b(i)
NEXT i
 
INPUT "TEXT = "; A
 
FOR i = 1 TO LEN(A)
   c = MID$(A, i, 1)
   SELECT CASE c
      CASE "a": n(1) = n(1) + 1
      CASE "e": n(2) = n(2) + 1
      CASE "i": n(3) = n(3) + 1
      CASE "o": n(4) = n(4) + 1
      CASE "u": n(5) = n(5) + 1
   END SELECT
NEXT i
 
FOR i = 1 TO 4
FOR j = i + 1 TO 5
   IF n(i) < n(j) THEN
      SWAP n(i), n(j)
      SWAP b(i), b(j)
   END IF
NEXT j, i
 
FOR i = 1 TO 5
   PRINT b(i); " ="; n(i)
NEXT i
END