элементы массива Опции

[лоен]

а собственно как удалять и дублировать элементы массива?

[лоен]

ну допустим из соседнего топика)
среди оставшихся чисел нужно продублировать простые

const Nmax=10000;
var
  n, i, s, b, j: integer;
  a: array[1 .. Nmax] of integer;

begin
  Writeln('Vvedite dliny posledovatelnosti(n<=10000)');
  Readln(n);
  Writeln('Vvedite posledovatelnost');
  for i := 1 to n do Readln(A[i]);
  i := 1;
  while i <= n do begin
    s := 0;
    b := A[i];
    while b > 0 do begin
      S := s + (b mod 10);
      b := b div 10;
    end;
    if (s mod 8) = 0 then begin
      n := n - 1;
      for j := i to n do a[j]:=a[j+1];
    end;
    inc(i);
  end;
  for i :=1 to n Do Write(A[i],' ');
  Readln;
end.