Имеется массив строк, каждая из которых содержит по два слова, разделенных одним пробелом. профессия и фамилия. Составить программу для выделения фамилий в отдельный массив — QBasic(Бейсик)

например:

ИНЖЕНЕР ИВАНОВ
КОНСТРУКТОР КОЗЛОВ
и т.д.

CLS
INPUT "vvedite n"; n
DIM a$(n), b$(n)
PRINT "    vvod dannyh"; STRING$(80, 196)
FOR i = 1 TO n
    INPUT "vvedite professiju i familiju"; a$(i)
NEXT
PRINT STRING$(80, 196)
FOR i = 1 TO n
    PRINT a$(i)
NEXT
FOR i = 1 TO n
    b$(i) = RIGHT$(a$(i), LEN(a$(i)) - INSTR(a$(i), " "))
NEXT
PRINT STRING$(80, 196)
FOR i = 1 TO n
    PRINT b$(i)
NEXT