Помогите с простой программой в Pascal выдаёт ошибку

Question

Вот программа :

type

d = array of integer;

dp = ^d;

var

x :array of dp;

i,n:integer;

begin

read(n);

for i := 1 to n do New(x[i]);

x[1]^[1] :=1;

writeln(x[1]^[1]);

end.

Выдаёт runtime error 201

Светлана Воронина · Accepted Answer

x конечно array of dp; 
но и выделить место в памяти под этот array стоит.

Марина Рябова · Answer

А создавать массив X Пушкин будет? Ты под него память-то не выделил!

Имя · Answer

for i := 1 to n do New(x[i]);
Ошибка времени выполнения: Ссылка на объект не указывает на экземпляр объекта.