var
  basicATPA: T2DPointArray;

begin
  SetLength(basicATPA, 1);
  basicATPA[0] := [Point(0, 0), Point(0, 1)];
  WriteLn(TPAToStr(basicATPA[0]));
  SetLength(basicATPA, 0);
end.