如何对记录型的数组赋值？很急(200分)

我定义了
type tpoint=record
x:integer;
y:integer;
type apoi=array[0..11] of tpoint;
const b:apoi=((x:53;y:82),(x:114;y:83),(x:28;y:106),(x:52;y:128),(x:114;y:139),(x:138;y:109),(x:1000;y:1000),(x:1000;y:1000),(x:1000;y:1000),(x:1000;y:1000),(x:1000;y:1000),(x:1000;y:1000));//正确
但下面的句子报错
var b:apoi;
b:=((x:53;y:82),(x:114;y:83),(x:28;y:106),(x:52;y:128),(x:114;y:139),(x:138;y:109),(x:1000;y:1000),(x:1000;y:1000),(x:1000;y:1000),(x:1000;y:1000),(x:1000;y:1000),(x:1000;y:1000));

不能这样因为x,y没有指定
b[0].x := 53;
b[0].y := 82;

type
tpoint=record
x:integer;
y:integer;
end;
type
apoi=array[0..11] of tpoint;
//定义一个指向数组的指针
papoi = ^apoi;


procedure TForm1.Button1Click(Sender: TObject);
var
b: Papoi;
i: Integer;
begin
//数组分配内存后使用
GetMem(b, 1);
for i := 0 to 11do
begin
b^.x := i;
b^.y := 11-i;
end;
ShowMessage(IntToStr(b[0].x));
end;

多人接受答案了。