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

program task;

type

int_array = array[1 ... 15] of integer;

var

array : int_array;

i : integer;

begin

randomize;

for i:=1 to 15 do

begin

array[i]:=random (20) ;

end;

writeln ('Третий элемент массива до замены : ', array[2]) ;

array[2]:=array[4];

writeln ('Третий элемент массива после замены : ', array[2]) ;

end.