pascalabcnet/InstallerSamples/!Tutorial/09_Arrays/DynArr3.pas

// Использование динамического массива 

begin
  Println('SetLength при повторном вызове не портит старые элементы:');
  var a: array of integer;
  SetLength(a,5);
  for var i:=0 to a.Length-1 do
    a[i] := i+1;
  a.Println;

  SetLength(a,10);
  a.Println;
end.