Напечатать сообщение о наличии или отсутствии одинаковых названий и напечатать повторяющееся название, если оно есть — Basic(Бейсик)

CLS
FOR i = 1 TO 3
PRINT "vvedite nazvanie "; i; " otelya"
INPUT a$(i)
NEXT
FOR i = 1 TO 3
f = 0
FOR j = i + 1 TO 3
IF a$(i) = a$(j) THEN f = 1: t = 1
NEXT
IF f = 1 THEN PRINT a$(i)
NEXT
IF t = 0 THEN PRINT "povtorov net"