Определить, все ли буквы слова различны - QBasic

Формулировка задачи:

Помогите с задачкой: определите все ли буквы слова различны.

Решение задачи: «Определить, все ли буквы слова различны»

Листинг программы

input "vvedite slovo ",a$
for i=1 to len(a$)
for j=1 to len(a$)
if i<>j and mid$(a$,i,1)=mid$(a$,j,1)then f=1
next
next
if f=0 then print"vse bukvy slova razlichny" else print"v slove est odinakovye bukvy"

Объяснение кода листинга программы

Вводится строка, в которую нужно проверить наличие одинаковых букв.
Задаются два вложенных цикла, которые будут проверять каждую букву строки на совпадение.
Если текущая буква совпадает с другой буквой в строке (не считая текущую), то переменной f присваивается значение 1.
Если после прохода по всем буквам строки значение переменной f осталось равным 0, то выводится сообщение о том, что все буквы различны.
Если значение переменной f равно 1, то выводится сообщение о том, что в слове есть одинаковые буквы.