Вставить в массив число "a" после каждого из элементов, в которых больше трёх цифр

for var i := 0 to length(a)-1 do
if (a[i] div 100 >= 1) then
a[i] := (a[i] * round(power(10,inttostr(n).length))) + n;

var m: array of integer := (1,32,0,433,655,12,4444,54,7777,655,32,111); // Наш массив
    a,k,i,q: integer;
 
begin
 write('Число, которое вставить: ');
 read(a); // Ввод числа "a"
 for q:=0 to m.Length-1 do
  if m[q] div 100 >= 1 then k+=1; // Считаем кол-во чисел, в которых 3 и более цифр
 setlength(m, m.Length + k); // Увеличиваем размер массива на это число
 while (i < m.Length-1) do // Пробегаем по массиву
 begin
  if m[i] div 100 >= 1 then begin // Если находим число с тремя и более цифрами
   i+=1; // Прибавляем 1, чтобы вставить не вместо найденного элемента, а после него
   for q:= m.Length-2 downto i do
   begin
    m[q+1]:=m[q]; // Сдвигаем массив на 1 элемент вправо, начиная с позиции, куда будем вставлять число
   end;
   m[i]:=a; // В освободившееся место пишем число
  end;
  i+=1; // Переходим к следующему элементу
 end;
 for i:=0 to m.Length-1 do write(m[i],' '); // Выводим полученный массив
end.

1 32 0 433 99 655 99 12 4444 99 54 7777 99 655 99 32 111 99

var
  l:list<integer>;
  i,a:integer;
begin
  write('a=');readln(a);
  l:=ReadString('Введите массив:').Split(' ').Select((s:string)->integer.parse(s)).ToList();
  i:=0;
  while i<l.Count do begin 
    if l.Item[i]>99 then begin l.Insert(i+1,a);i:=i+1;end;
    i:=i+1;
  end;  
   l.Println;
end.