program ideone;
var
  MyArray: array of Integer; // Динамический массив
  i: Integer;
begin
  // Инициализация массива
  SetLength(MyArray, 5); // Начальный размер массива — 5 элементов
  for i := 0 to High(MyArray) do
    MyArray[i] := (-1)*(i + 1); // Заполняем массив значениями
 
  // Увеличение размера массива на 1
  SetLength(MyArray, Length(MyArray) + 1);
 
  // Добавляем новое значение в массив
  MyArray[High(MyArray)] := 100; // Записываем значение в новый элемент
 
  // Выводим массив для проверки
  for i := 0 to High(MyArray) do
    Writeln(MyArray[i]);
end.  
end.

cHJvZ3JhbSBpZGVvbmU7CnZhcgogIE15QXJyYXk6IGFycmF5IG9mIEludGVnZXI7IC8vINCU0LjQvdCw0LzQuNGH0LXRgdC60LjQuSDQvNCw0YHRgdC40LIKICBpOiBJbnRlZ2VyOwpiZWdpbgogIC8vINCY0L3QuNGG0LjQsNC70LjQt9Cw0YbQuNGPINC80LDRgdGB0LjQstCwCiAgU2V0TGVuZ3RoKE15QXJyYXksIDUpOyAvLyDQndCw0YfQsNC70YzQvdGL0Lkg0YDQsNC30LzQtdGAINC80LDRgdGB0LjQstCwIOKAlCA1INGN0LvQtdC80LXQvdGC0L7QsgogIGZvciBpIDo9IDAgdG8gSGlnaChNeUFycmF5KSBkbwogICAgTXlBcnJheVtpXSA6PSAoLTEpKihpICsgMSk7IC8vINCX0LDQv9C+0LvQvdGP0LXQvCDQvNCw0YHRgdC40LIg0LfQvdCw0YfQtdC90LjRj9C80LgKCiAgLy8g0KPQstC10LvQuNGH0LXQvdC40LUg0YDQsNC30LzQtdGA0LAg0LzQsNGB0YHQuNCy0LAg0L3QsCAxCiAgU2V0TGVuZ3RoKE15QXJyYXksIExlbmd0aChNeUFycmF5KSArIDEpOwoKICAvLyDQlNC+0LHQsNCy0LvRj9C10Lwg0L3QvtCy0L7QtSDQt9C90LDRh9C10L3QuNC1INCyINC80LDRgdGB0LjQsgogIE15QXJyYXlbSGlnaChNeUFycmF5KV0gOj0gMTAwOyAvLyDQl9Cw0L/QuNGB0YvQstCw0LXQvCDQt9C90LDRh9C10L3QuNC1INCyINC90L7QstGL0Lkg0Y3Qu9C10LzQtdC90YIKCiAgLy8g0JLRi9Cy0L7QtNC40Lwg0LzQsNGB0YHQuNCyINC00LvRjyDQv9GA0L7QstC10YDQutC4CiAgZm9yIGkgOj0gMCB0byBIaWdoKE15QXJyYXkpIGRvCiAgICBXcml0ZWxuKE15QXJyYXlbaV0pOwplbmQuICAKZW5kLg==