Определить какая буква чаще встречается

CLS
DIM s AS STRING
DIM ms(1 TO 26)
 
s = "I go home"
s = UCASE$(s)
 
FOR i = 1 TO LEN(s)
   k = ASC(MID$(s, i, 1)) - 64
   IF k <= 0 THEN 100
   ms(k) = ms(k) + 1
100
NEXT
 
max = 1
FOR i = 1 TO 26
   IF max < ms(i) THEN
      max = ms(i)
      k = i
   END IF
NEXT
 
PRINT "OTVET: "; CHR$(k + 64)
END

aa = ASC("A"): az = ASC("Z")
DIM n(aa TO az)
DIM s AS STRING
s = "I go home."
 
s = UCASE$(s)
mx = 0
FOR i = 1 TO LEN(s)
  k = ASC(MID$(s, i, 1))
  IF k >= aa AND k <= az THEN
    n(k) = n(k) + 1
    IF mx < n(k) THEN mx = n(k)
  END IF
NEXT
PRINT "Max ("; mx; "): ";
FOR i = aa TO az
  IF mx = n(i) THEN PRINT CHR$(i);
NEXT: PRINT

aa = ASC("A"): az = ASC("Z")
DIM n(aa TO az)
DIM s AS STRING
s = "I go home."
 
s = UCASE$(s)
FOR i = 1 TO LEN(s)
  k = ASC(MID$(s, i, 1))
  IF k >= aa AND k <= az THEN n(k) = n(k) + 1
NEXT
mx = 0
FOR i = aa TO az
  IF mx < n(i) THEN mx = n(i)
NEXT
PRINT "Max ("; mx; "): ";
FOR i = aa TO az
  IF mx = n(i) THEN PRINT CHR$(i);
NEXT: PRINT

aa = ASC("A"): az = ASC("Z") - aa
DIM n(az)
...
  k = ASC(MID$(s, i, 1)) - aa
  IF k >= 0 AND k <= az THEN n(k) = n(k) + 1
...
  IF mx = n(i) THEN PRINT CHR$(i + aa);