Квадратичная сортировка: вставка числа в массив - PascalABC.NET

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

Требуется вставить в данный массив на данное место данный элемент, сдвинув остальные элементы вправо. Входные данные В первой строке вводится одно натуральное число, не превосходящее 1000 – размер массива. Во второй строке задаются N чисел – элементы массива (целые числа, не превосходящие по модулю 1000). В третьей строке вводится число, которое необходимо вставить, и номер места, на которое его нужно вставить. Выходные данные Вывести получившийся массив. Примеры входные данные 5 1 2 3 4 5 2 3 выходные данные 1 2 2 3 4 5

var a:array[1..10000] of integer;
var b:array[1..10000] of integer;
begin
var k:=0;
var q:=0;
var n:=readlnInteger();
for var i:=1 to n do read(a[i]);
var ai:=0;
for var i:=1 to n do b[i]:=a[i];
readln(k,q);
for var i:=1 to n do begin
if i=q then begin ai:=a[i]; 
a[i]:=k;
a[i+1]:=ai;
end;
end;
for var i:=q+2 to n+1 do begin
a[i]:=b[i+1];
end;
for var i:=1 to n+1 do print(a[i]);
end.

Вставка вроде получилась, а вот вывести целый массив с вставленным числом не получается. Помогите найти ошибку.

Решение задачи: «Квадратичная сортировка: вставка числа в массив»

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

begin
  var n:=ReadInteger;
  var a:=ReadArrInteger(n).ToList;
  var (x,k):=ReadInteger2;
  a.Insert(k-1,x);
  a.Println
end.

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

В начале программы нам необходимо прочитать количество элементов для массива из входных данных. Для этого используется функция ReadInteger, которая считывает целочисленное значение из стандартного ввода и сохраняет его в переменную n.
Затем мы используем функцию ReadArrInteger(n), которая считывает массив целых чисел из стандартного ввода и сохраняет его в переменную a в виде списка.
После этого мы считываем два целочисленных значения (x и k) с помощью функции ReadInteger2 и сохраняем их в переменные x и k соответственно.
Затем мы используем метод Insert для вставки значения x в список a по индексу k-1.
Наконец, мы используем метод Println для вывода отсортированного списка a на стандартный вывод.