Добавить после первого элемента списка заданное количество элементов. Pascal ABC

Предыдущий
вопрос Следующий
вопрос

program addElements;
const
N = 5; // количество элементов, которые нужно добавить
var
list: array[1..5] of Integer;
i, j, element: Integer;
begin
// заполняем изначальный список
for i := 1 to 5 do
begin
list[i] := i;
end;

// выводим изначальный список
writeln('Изначальный список:');
for i := 1 to 5 do
begin
writeln(list[i]);
end;

// добавляем элементы
element := 6;
for i := 1 to N do
begin
for j := 5 downto i do
begin
list[j+1] := list[j];
end;
list[i] := element;
element := element + 1;
end;

// выводим обновленный список
writeln('Обновленный список:');
for i := 1 to 10 do
begin
writeln(list[i]);
end;
end.