Вставить заданное число a в середину массива - Pascal ABC

Формулировка задачи:

2. Дан одномерный массив x[1...n]. Вставить заданное число a в середину массива.

Решение задачи: «Вставить заданное число a в середину массива»

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

var n,i,a:integer;
    x:array[1..100] of integer;
begin
randomize;
repeat
write('Введите размер массива четное число больше 0 n=');
readln(n);
until(n>0)and(n mod 2=0);
writeln('Исходный массив');
for i:=1 to n do
 begin
  x[i]:=random(100);
  write(x[i]:4);
 end;
writeln;
write('a=');
readln(a);
n:=n+1;
for i:=n downto n div 2+2 do
x[i]:=x[i-1];
x[n div 2+1]:=a;
writeln('Вставка ',a,' в середину массива');
for i:=1 to n do
write(x[i]:4);
end.

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

Создаются переменные n, i и a типа integer.
Создается переменная x типа array[1..100] of integer.
Вызывается функция randomize для инициализации генератора случайных чисел.
Запускается цикл repeat, который продолжается до тех пор, пока не будет введено четное число больше 0, которое является размером массива n.
Внутри цикла выводится запрос на ввод размера массива.
В цикле for i:=1 до n do вычисляется случайное число x[i] из диапазона от 1 до 100 и записывается в соответствующую ячейку массива.
Выводится исходный массив.
Выводится введенное число a.
Увеличивается значение переменной n на 1.
Запускается цикл for i:=n downto n div 2+2. Внутри этого цикла значения массива x[i-1] заменяются на значения массива x[i].
Значение x[n div 2+1] заменяется на введенное число a.
Выводится сообщение о вставке числа a в середину массива.
Запускается цикл for i:=1 до n do выводится значение x[i].