В массив вставить новый элемент после всех элементов, которые заканчиваются на данную цифру - Pascal ABC

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

В одномерном целочисленном массиве вставить новый элемент после всех элементов, которые заканчиваются на данную цифру.

Вот

var a,b : array [1..20] of integer;
i,j,N:integer;
begin
  clrscr;
  randomize;
  write('Cifra = ');readln(N);
  if N>9 then N:=random(30);
  j:=1;
  for i:=1 to 10 do
      begin
        a[i]:=random(21);
        write(a[i]:4);
        b[j]:=a[i];
        if a[i] mod 10 = N then
           begin
             inc(j);
             b[j]:=N
           end;
        inc(j)
      end;
  writeln;
  for i:=1 to j-1 do
      write(b[i]:4);
  readln;
end.

Решение задачи: «В массив вставить новый элемент после всех элементов, которые заканчиваются на данную цифру»

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

var a : array [1..20] of integer;
    c,x,n,i,j:integer;
begin
randomize;
writeln('Исходный массив');
n:=10;
for i:=1 to n do
 begin
  a[i]:=random(21);
  write(a[i]:4);
 end;
writeln;
write('На какую цифру оканчивается элемент c=');
readln(c);
write('Какое число вставить x=');
readln(x);
i:=1;
while i<=n do
if a[i] mod 10=c then
 begin
  n:=n+1;
  for j:=n downto i+2 do
  a[j]:=a[j-1];
  a[i+1]:=x;
  i:=i+2;
 end
else i:=i+1;
writeln('Измененный массив');
for i:=1 to n do
write(a[i]:4);
end.

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

Создаётся переменная a типа array [1..20] of integer.
Создаются переменные c, x, n, i, j типа integer.
Вызывается функция randomize, чтобы инициализировать генератор случайных чисел.
Выводится сообщение 'Исходный массив'.
Переменная n устанавливается равной 10.
Для i от 1 до n выполняется следующий цикл:
- Переменная a[i] устанавливается равной случайному числу в диапазоне от 0 до 20.
- Выводится значение a[i] с префиксом '4'.
Выводится сообщение 'На какую цифру оканчивается элемент c='.
Читается значение c с помощью функции readln.
Выводится сообщение 'Какое число вставить x='.
Читается значение x с помощью функции readln.
Устанавливается переменная i равной 1.
Запускается цикл while i<=n с условием, что текущее значение i меньше или равно n.
Если остаток от деления a[i] на 10 равен c, то:
- Увеличивается значение n на 1.
- Для j от n до i+2 выполняется цикл:
  - Значение a[j] устанавливается равным значению a[j-1].
  - Значение a[i+1] устанавливается равным x.
  - Увеличивается значение i на 2.
Если условие из предыдущего пункта не выполняется, то значение i увеличивается на 1.
Выводится сообщение 'Измененный массив'.
Для i от 1 до n выполняется цикл:
- Выводится значение a[i] с префиксом '4'.