Массив. Удалить простые числа и продублировать числа, равные кубу целого числа

uses crt;
function ProstoeChislo(x:integer):boolean;
var i:integer;
begin
 for i:=2 to x div 2 do
  if x mod i = 0 then
   begin
    ProstoeChislo:=false;
    exit;
   end;
 ProstoeChislo:=true;
end;
 
function Kub(x:integer):boolean;
var    k:integer;
 
begin
 k := trunc(exp((1/3)*ln(x)));
  if (k*k*k) = x then kub:=true
   else kub:=false;
end;
 
const nmax=10000;
var
a          :array[1..nmax] of integer;
j,n,i  :integer;
f          :boolean;
begin
 clrscr;
 writeln('размер<=10000');
 read(n);
 writeln('последовательность');
  for j:=1 to n do
  read(a[j]);
  j:=1;
   while j<=n do
    if ProstoeChislo(a[j]) then
     begin
      for i:=j to n-1 do
      a[i]:=a[i+1];
      n:=n-1;
     end
    else j:=j+1;
   write('без простых чисел: ');
  for j:=1 to n do
   begin
    write(a[j],' ');
   end;
   readkey;
   writeln;
   write('продублированные числа: ');
    for j:=1 to n do
   if kub(a[j]) then
    write(a[j],' ',a[j],' ')
    else write(a[j],' ');
 readkey;
end.