Дан массив B(N). Удалить из него минимальный элемент и сдвинуть все оставшиеся елементы на одну позицию влево- QBasic(Бейсик)

 CLS           ' Чистим экран
 INPUT "Vvedite n :", n
DIM B(n)       ' Заводим массив
 FOR i = 1 TO n       ' Вводим элементы
   PRINT "Vvedite element N"; i; ": ";
   INPUT "", B(i)
 NEXT
  min = B(1): k = 1   ' Из области значений
 FOR i = 1 TO n       ' Ищем минимум и его индекс
   IF B(i) < min THEN min = B(i): k = i
 NEXT
 FOR i = k TO n - 1   ' Сдвигаем массив
   B(i) = B(i + 1)
 NEXT
 FOR i = 1 TO n - 1   ' Выводим результат
   PRINT B(i);
 NEXT