Помогите, пожалуйста, решить задачу в qbasic
 

дана последовательность из 12 символьных выражений, содержащих цифры или русские буквы, например,DATA "Олег", "увидел", "вокруг", "31", "школы", "5", "спортивных", "площадок", "яблоневый", "сад", "и", "огромный", "стадион". вывести на экран первый знак от каждого выражения



помогите, пожалуйста, написать программу! нужно очень срочно!!!

DATA "Олег", "увидел", "вокруг", "31", и так далее
FOR a% = 0 TO 11
READ a$
PRINT LEFT$ (a$, 1)
NEXT
END

Как-то так, вроде...

программа работает неправильно. печатается на экране 0