Дан массив из 15 целых чисел. Вставить в данный массив после третьего элемента число, равное пятому элементу. (Паскаль)

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

program InsertElementAfterThird;
var
arr: array [1..15] of integer;
i, numToInsert: integer;
begin
// заполняем массив случайными числами
randomize;
for i := 1 to 15 do
begin
arr[i] := random(100); // случайные числа от 0 до 99
write(arr[i], ' ');
end;

writeln; // переход на новую строку

numToInsert := arr[5]; // сохраняем пятое число

// вставляем число после третьего элемента
for i := 15 downto 4 do
begin
arr[i+1] := arr[i];
if i = 4 then
arr[i+1] := numToInsert;
end;

// выводим измененный массив
for i := 1 to 15 do
write(arr[i], ' ');
end.