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

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.