Найти в массиве все простые числа и скопировать их в новый массив

k:=0;
for i:=1 to n do
if prostoe(a[i]) then
 begin
  k:=k+1;
  b[k]:=a[i];
end;

const n=10;
var a:array[1..n] of integer;
    i:integer;
function prost(i:integer):boolean;
var j:integer;
begin
 j:=2;
 while (i mod j <> 0) do inc(j);
 if i=j then prost:=true
        else prost:=false
end;
begin
 randomize;
 for i:=1 to n do
  begin
   a[i]:=random(51);
   write(a[i]:3);
   if prost(a[i]) then

const n=10;
function prost(i:integer):boolean;
var j:integer;
begin
 j:=2;
while (i mod j <> 0) do inc(j);
if i=j then prost:=true
else prost:=false
end;
var a,b:array[1..n] of integer;
    m,i:integer;
begin
randomize;
writeln('Массив А');
m:=0;
for i:=1 to n do
 begin
  a[i]:=random(51);
  write(a[i]:3);
  if prost(a[i]) then
   begin
    m:=m+1;
    b[m]:=a[i];
   end;
 end;
writeln;
if m=0 then write('Простых чисел нет')
else
 begin
  writeln('Простые числа');
  for i:=1 to m do
  write(b[i]:3);
 end;
end.

const
  n=8;
var
  i,x,j,h:integer;
  a,b: array [1..n] of integer;
begin
  for i:=1 to n do
    begin
      a[i]:=random(15);
      write(a[i],' ')
    end;  
  for i:=1 to n do
    begin
      x:=0;
      if a[i] in [0..1] then
        x:=1;
      for j:=2 to a[i]-1 do
        if a[i] mod j = 0 then
          begin
            x:=x+1;
            break
          end;  
      if x=0 then 
        begin
          h:=h+1;
          b[h]:=a[i]
        end
    end;
  writeln;  
  for i:=1 to h do
    write(b[i],' ')
end.