Не работает динамический массив Delphi

[WingmanIX]

Добрый день. Проблема вот в чем. Создаю динамический массив с помощью GetMem; при попытке обратиться к любому его элементу, кроме 1-ого, появляется ошибка Constant expression violates subrange bounds. Что делать?

implementation
{$R *.dfm}
{$R-}

procedure TForm1.FormCreate(Sender: TObject);
type
arr = array[1..1] of integer; 
 p_arr = ^arr;
var
 a:p_arr;
 size:integer;
begin
 size:=sizeOf(integer);
 GetMem(a,5*size);

 a[2]:=1;//ошибка: Constant expression violates subrange bounds

 FreeMem(a,5*size);

end;

end.

[Stilet]

procedure TForm1.FormCreate(Sender: TObject);
var
 a:array of integer;
begin
SetLength(a,5);
 a[2]:=1;//И не волать вола с GetMem

SetLength(a,0);

end;

[WingmanIX]

У преподавателя в методичке именно такой код, менять нельзя
У моих одногруппников код работает, а у меня нет.

[Аватар]

Навряд-ли такой код. Там должно быть
arr = array[1..5] of integer;

[Stilet]

Там должно быть

Неа. Фишка именно в том что это массив указателей. Есть такое.
попробуй a[2]^:=1;

ПримеР: http://www.programmersforum.ru/showthread.php?t=47171

[WingmanIX]

В итоге, решение моего вопроса - индексировать элементы массива надо через переменную, тогда ошибки не будет:
Всем спасибо за ответы.

implementation
{$R *.dfm}
{$R-}
 

procedure TForm1.FormCreate(Sender: TObject);
type
arr = array[1..1] of integer; 
 p_arr = ^arr;
var
 a:p_arr;
 size,i:integer;
begin
 size:=sizeOf(integer);
 GetMem(a,5*size);
 
 i:=2;
 a[i]:=1;//Теперь ошибки нет.
 
 FreeMem(a,5*size);
 
end;
 
end.