Пользователь вводит размерность массива и его элементы. Создать динамический массив с количеством элементов, которое вводит пользователь. Если в массиве максимальный элемент четный, то увеличьте количество элементов на 5, и новые элементы заполните значениями первых пяти элементов массива. Выведите массив на экран с соответствующими пояснениями. Упорядочьте элементы нового массива по убыванию методом пузырька. Выведите массив на экран с соответствующими пояснениями.
Застрял на увеличении массива
const
Sz = 100;
var
a: array [1..Sz] of integer;
b: array of integer;
N: integer;
max: integer;
minind: integer;
begin
readln(N);
for var i:=1 to N do
a[i] := Random(100);
writeln('Элементы массива: ');
for var i:=1 to N do
write(a[i],' ');
writeln;
max := integer.MinValue;
for var i:=1 to N do
if (a[i]>max) then
begin
max := a[i];
end;
writeln(max);
if (max mod 2 = 0) then
writeln(1) else writeln(0);
end.