Вставка нескольких элементов в массиве - Pascal

Одномерные массивы. Вставить два элемента: первый - после максимального элемента, второй - перед максимальным элементом.

Листинг программы

  for i:=n downto imx+1 do m[i+2]:=m[i];
  m[imx+1]:=m[imx]; m[imx]:=a; m[imx+2]:=a;
  Inc(n,2);

Объяснение кода листинга программы

Цикл от i до imx+1 (включительно), который выполняется в обратном порядке. Значение переменной i в каждой итерации уменьшается на 1.
Элемент с индексом i массива m перемещается на две позиции вправо, при этом значение этого элемента сохраняется в m[i+2].
Значение элемента с индексом imx массива m присваивается элементу с индексом imx+1.
Переменная a присваивается элементу с индексом imx массива m.
Присваивается значение переменной a элементу с индексом imx+2 массива m.
Переменная n увеличивается на 2.