В массиве вставить после каждого собственного числа "0"

[MarkAfe]

Прошу помощи, программа не работает, показывает ошибку на этапе компиляции...
Дан динамический массив, после каждого собственного числа(Число которое делится на себя и на 1) вставить "0".

procedure TForm2.Button2Click(Sender: TObject);
begin
 Edit3.Text:=' '; // Очистить окно Edit3
    for i:=0 to n-1 do begin
 for j:=1 to i do begin
   if m[i] mod j=0 then m:=m+1;
 end;
   if m=2 then begin
   n:=n+1;
   for j:=i+1 to n-2 do begin
     m[j]:=m[j+1];
   end;
   end;
   end;
           for i:=0 to n-1 do
      Edit3.Text:=Edit3.Text + '  '+inttostr(M[i]); // Вывести элементы массива
end;

[p51x]

m:=m+1;
if m=2 then

У вас m массив. Что вы этим хотели сказать?

[MarkAfe]

По идеи, это увеличение массива на 1, так как при каждом простом числе, после этого числа должен стоять ноль, вот поэтому и увеличиваем.

[p51x]

И откуда такая мысль? Справку не пробовали читать по динамическим массивам? http://docs.embarcadero.com/products...SetLength.html