Выяснить, имеются ли в заданном тексте символы <,> и <->, а также цепочки из этих символов- QBasic(Бейсик)

INPUT a$
FOR i = 1 TO LEN(a$)
    IF (MID$(a$, i, 1) = ",") OR (MID$(a$, i, 1) = "-") THEN PRINT "simvol est": f = 1
    IF (MID$(a$, i, 1) = ",") AND (MID$(a$, i + 1, 1) = "-") THEN PRINT "cepochki est": t = 1
NEXT
IF f = 0 THEN PRINT "simvolov net"
IF t = 0 THEN PRINT "cepochek net"