Вставка в одномерный массив

[Sanktus]

Всем привет!
Не могу решить задачу.
Вставить число k после всех элементов массива, кратных своему индексу.

Заранее спасибо!

[Alex11223]

В чем проблема-то? Если я правильно понял условие, то проходите массив циклом (for) и запоминаете индекс элемента в какую-нибудь переменную если (if) его значение кратно его индексу. После цикла вставляете k после этого индекса.

[Sanktus]

Вот пытался но не работает:

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const
  n=2;
var
  A:array of integer;
  i,k,j:integer;
begin
  k:=10;
  setlength(a,n);
 
  writeln('vvedite massiv');
    for i:= 1 to length(a) do
      readln(A[i]);
 
  for i:= 1 to length(a) do
  begin
    if a[i] mod i =0 then
      begin
        setlength(a, length(a)+1);
        for j := length(a) downto i+2 do
          begin
            a[j]:=a[j-1];
          end;
        a[i+1]:=k;
      end;
  end;
 
    for i:=1 to length(a) do
    write(A[i],' ');
 
  readln;
end.

[Alex11223]

А, значит я немного не так понял, думал после последнего вставить.
Динамические массивы вроде с 0 начинаются, а не 1.

[Sanktus]

Вот по другому но все равно не то:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  n=5;
var
  A:array of integer;
  i,k,j:integer;
begin
  k:=10;
  setlength(a,n);

    for i:= 0 to length(a)-1 do
      readln(A[i]);

  for i:= 0 to length(a)-1 do
  begin
    if a[i] mod (i+1) =0 then
      begin
        setlength(a, length(a)+1);
        for j := length(a)-1 downto i+2 do
          begin
            a[j]:=a[j-1];
          end;
        a[i+1]:=k;
      end;
  end;

    for i:=0 to length(a) do
    write(A[i],' ');

  readln;

end.

[Biggs]

Заполняем массив
Идем с конца до первого элемента кратного индексу и вставляем число к