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

[Дюша Метелкин]

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

[Aleksandr H.]

program Project1;
uses crt;
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.