Вставить число а в массив целых чисел после всех элементов, в которых есть цифра 5

const nmax=100;
var a:array[1..nmax] of integer;
    n,i,j,k,x:integer;
begin
randomize;
repeat
write('Размер массива до ',nmax div 2,' n=');
readln(n);
until n in [1..nmax div 2];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(1000);
  write(a[i]:4);
 end;
writeln;
write('Введите число для вставки k=');
readln(k);
i:=1;
while i<=n do
 begin
  x:=a[i];
  while(x>0)and(x mod 10<>5)do x:=x div 10;
  if x>0 then
   begin
    n:=n+1;
    for j:=n downto i+1 do
    a[j]:=a[j-1];
    a[i+1]:=k;
    i:=i+2;
   end
  else i:=i+1;
 end;
writeln('Вставка ',k, ' после всех элементов с цифрой 5');
for i:=1 to n do
write(a[i]:4);
end.

const n=50;
var a:array[1..n] of integer; h,b,i:integer;
begin
write('размер массива до:');
readln(h);
for i:=1 to h do
begin
a[i]:=random(500);
write(a[i]:4);
end;
writeln;
write(' введи число: ');
readln(b);
for i:=1 to h do
begin
if a[i]mod 5=0 then 
end;
end.

if a[i]mod 5=0 then

const nmax=100;
var a:array[1..nmax] of integer;
    n,i,j,k,p,x:integer;
begin
randomize;
repeat
write('Размер массива до ',nmax-1,' n=');
readln(n);
until n in [1..nmax-1];//1 ячейка для вставки
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(1000);
  write(a[i]:4);
 end;
writeln;
write('Введите число для вставки k=');
readln(k);
p:=0; //пока нет числа с последней цифрой 5
for i:=1 to n do
if (a[i] mod 10=5)and(p=0) then//нашли
 begin
  p:=1; //меняем р
  n:=n+1;//увеличиваем размер массива
  for j:=n downto i+1 do//сдвигаем на 1 вправо элементы после найденного
  a[j]:=a[j-1];
  a[i+1]:=k; //вставляем число после элемента
 end;
if p=0 then writeln('Нет числа с последней цифрой 5')
else
 begin
  writeln('Вставка ',k, ' после первого элемент с последней цифрой 5');
  for i:=1 to n do
  write(a[i]:4);
 end;
end.