Выдаёт ошибку времени выполнения: Индекс находился вне границ массива.

Что исправить?

program SH;

var

q: integer;

A: array[1..5] of real;

begin

for q := q to 12 do

begin

write('A', 1:2, ']=');

read(A[q]);

end;

end.