RosettaCodeData/Task/Collections/Pascal/collections-2.pas

var
  MyArray: array of integer;
begin
  setlength (MyArray, 10);
  MyArray[4] := 99;
end;