Как написать массив с конечной точкой еще не данной?

[temnot]

var n:integer; a:array[1..n] of integer;
n:integer;
begin
readln(n);
readln(a);
end;

Думаю условие задачи и все остальное от задачи тут не нужно, ошибки:
can't read or write variables of this type (5 строка)
can't evaluate constant expession (массив в 1 строке)

Вопрос в том, как сделать, чтобы при N=4 массив был 1..4, а не выдавал ошибку?

[ZX Spectrum-128]

Динамические массивы используйте

var 
  n:integer; a:array of integer;
...
  readln(n);
  SetLength(a,n);

[Stilet]

readln(a);

Массив нельзя так вводить. Вводи в цикле поэлементно.

[temnot]

Спасибо, сейчас попробую разобраться

[temnot]

А как тогда его прочитать?
for a[i]:=1 to n do
read(a); что-то вроде этого?

[ZX Spectrum-128]

Да, только у динамического с 0 нумерация начинается.
То есть, нет конечно

for i:=0 to n-1 do
  Readln(a[i]);

[type_Oleg]

Да, только

for i:=0 to n-1 do read(a[i]);

что-то вроде этого

Динамические массивы - всегда индексы с 0 начинаются.

[temnot]

Спасибо большое за ответы, мой код даже заработал без ошибок! :D