program ideone;
var
     myArray : array of Integer;
     currentIndex : Integer;
 
   begin
     // Initialize the dynamic array (e.g., with a starting size)
     SetLength(myArray, 1); 
 
     // Add elements (example)
     myArray[0] := 1;
     currentIndex := 0; 
 
     // Add a new element
     SetLength(myArray, currentIndex + 2);
     myArray[currentIndex + 1] := 2;
     currentIndex := currentIndex + 1; 
     writeln(myArray[currentIndex ])
   end.
 

cHJvZ3JhbSBpZGVvbmU7CnZhcgogICAgIG15QXJyYXkgOiBhcnJheSBvZiBJbnRlZ2VyOwogICAgIGN1cnJlbnRJbmRleCA6IEludGVnZXI7CgogICBiZWdpbgogICAgIC8vIEluaXRpYWxpemUgdGhlIGR5bmFtaWMgYXJyYXkgKGUuZy4sIHdpdGggYSBzdGFydGluZyBzaXplKQogICAgIFNldExlbmd0aChteUFycmF5LCAxKTsgCgogICAgIC8vIEFkZCBlbGVtZW50cyAoZXhhbXBsZSkKICAgICBteUFycmF5WzBdIDo9IDE7CiAgICAgY3VycmVudEluZGV4IDo9IDA7IAoKICAgICAvLyBBZGQgYSBuZXcgZWxlbWVudAogICAgIFNldExlbmd0aChteUFycmF5LCBjdXJyZW50SW5kZXggKyAyKTsKICAgICBteUFycmF5W2N1cnJlbnRJbmRleCArIDFdIDo9IDI7CiAgICAgY3VycmVudEluZGV4IDo9IGN1cnJlbnRJbmRleCArIDE7IAogICAgIHdyaXRlbG4obXlBcnJheVtjdXJyZW50SW5kZXggXSkKICAgZW5kLgo=