Что я не так написал?

Вы нарушили формат оператора ввода Read/Readln - в списке ввода не может быть указан массив, тем более, в такой форме, как у Вас.
Следовало писать for i:=1 to n do Read(a[i]);