var
  a: array[1..10] of integer;
  b: array of integer;
  i, x, y, j: integer;
begin
  j:= 1;
  {создаем массив a}
  for i:= 1 to 10 do
    begin
      a[i]:= random(10);
      write(a[i]:3);
    end;
  writeln;
  {ищем простые числа массива a и создаём новый}
  for i:= 1 to 10 do
    begin
      x:= 0;
      if a[i] >= 2 then
        begin
          for y:= 2 to (a[i] div 2) do
            if (a[i] mod y) = 0 then
              inc(x);
            if x = 0 then
              begin
                SetLength(b, j + 1);
                b[j]:= a[i];
                inc(j)
              end;
        end;
      end;
  {выводим массив b}
  for i:= 1 to j - 1 do
    write(b[i]:3);
end.