Составить программу, которая будет определять правильное написание приставки "без" или "бес" - QBasic

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

Составить программу, которая будет определять правильное написание приставки "без" или "бес" (рус. яз. без пишиться, если основа начинается на звонкую гласную, а бес, если основа начинается на глухую)

Решение задачи: «Составить программу, которая будет определять правильное написание приставки "без" или "бес"»

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

CLS
INPUT "Введите слово ";slovo$
DATA "б","в","г","д","ж","з","р","k","л","м","н"
DATA "п","ф","к","т","ш","с","х","ц","ч"
DIM zv$(11)
FOR i=1 TO 11
 READ zv$(i)
NEXT i
DIM gl$(9)
FOR i=1 TO 9
 REAd gl$(i)
NEXT i
IF (LEFT$(slovo$, 3) = "без") OR (LEFT$(slovo$, 3) = "beс") THEN
 FOR i = 1 TO 11
  IF MID$(slovo$, 4, 1) = zv$(i) THEN
   MID$(slovo$, 3, 1) = "з"
   EXIT FOR
  END IF
 NEXT i
FOR i = 1 TO 9
 IF MID$(slovo$, 4, 1) = gl$(i) THEN
  MID$(slovo$, 3, 1) = "с"
  EXIT FOR
 END IF
NEXT i
PRINT "pravilno "; slovo$
ELSE PRINT "В веденном слове отсутствует приставка без или бес"
END IF

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

Ввод слова с помощью функции INPUT.
Создание двух массивов данных: zv$ и gl$.
Проверка, начинается ли слово с без или бес с помощью функции LEFT$.
Если условие истинно, то выполняется цикл FOR для каждого элемента массива zv$.
Внутри цикла проверяется, равен ли второй символ слова соответствующему элементу массива zv$.
Если условие истинно, то второй символ слова заменяется на з с помощью функции MID$.
Если цикл FOR завершился без выхода из него, то выполняется цикл FOR для каждого элемента массива gl$.
Внутри цикла проверяется, равен ли второй символ слова соответствующему элементу массива gl$.
Если условие истинно, то второй символ слова заменяется на с с помощью функции MID$.
Если оба цикла завершились без выхода из них, то выводится сообщение pravilno и введенное слово.
Если хотя бы один из циклов вышел из цикла, то выводится сообщение В веденном слове отсутствует приставка без или бес.