Сравнение слов по заданному алфавиту - QBasic

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

Дан алфавит, состоящий из трех символов: ъ, ь, ы. Нужно составить программу, которая определит какое из двух, вводимых слов больше. То есть мы введем 2 слова, например: ьъъъъыь и ъьы, второе слово будет больше, так как его первый символ (ъ) стоит в данном алфавите раньше, чем первый символ второго слова (ь). Или два слова: ыъъъъь и ыъъъъыъъъъ, первое слово будет больше, т.к. с 1 по 5 символ у слов идентичны, а 6 символ первого слова стоит в алфавите раньше, чем 6 символ второго слова. Вот по такому вот принципу...

Решение задачи: «Сравнение слов по заданному алфавиту»

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

IF LEN(s1$) > LEN(s2$) THEN maxLen = LEN(s1$) ELSE maxLen = LEN(s2$)

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

Сравнение длин слов: В этом коде сравниваются длины двух строк s1$ и s2$. Если длина первой строки больше, то значение переменной maxLen будет равно длине первой строки, иначе значение переменной maxLen будет равно длине второй строки.
Начальные значения переменных: Переменная maxLen инициализируется значением 0. Это будет использоваться позже для сравнения длины слов.
Установка начального значения переменной сравнения: Переменная comparison устанавливается равной 0. Эта переменная будет использоваться для сравнения символов в словах.
Сравнение символов: Используя цикл, каждый символ из первой строки сравнивается с каждым символом из второй строки. Если символ из первой строки больше (по алфавиту), чем символ из второй строки, то значение переменной comparison увеличивается на 1.
Окончание цикла: Если все символы были сравнены, и значение переменной comparison все еще равно 0, это означает, что слова идентичны. В противном случае, если значение переменной comparison не равно 0, это означает, что слова не идентичны, и мы переходим к следующему шагу.
Вывод результата: Используя условное выражение, результат сравнения выводится на экран. Если слова идентичны, выводится сообщение Слова идентичны. Если слова не идентичны, выводится сообщение Слова различаются.