Создать новый вектор, элементы которого получены сперва взяв простые числа исходного, потом остальные

type
    MainType = ShortInt;
function IsPrime(const x: MainType): Boolean;
var
    Result: Boolean; //удалить строку при ошибке повторного объявления
    i: MainType;
begin
    Result := ((x >= 2) And (x mod 2 <> 0)); i := 3;
    if (Result)
    then
        while ((Sqr(i) <= x) And Result) do
            if (x mod i = 0)
            then
                Result := False
            else
                Inc(i, 2);
    IsPrime := Result;
end;
var
    x, y: Array[Byte] Of MainType;
    i, n, j: Byte;
    used: Set Of Byte;
begin
    repeat
        Write('Input n(>0): '); ReadLn(n);
    until (n > 0);
    Randomize; Write('X:');
    j := 0; used := [];
    for i := 0 to n - 1 do
    begin
        x[i] := Random(199) - 99;
        Write(x[i]:4);
        if (IsPrime(x[i]))
        then
        begin
            Write('...');
            Include(used, i);
            y[j] := x[i];
            Inc(j);
        end;
    end;
    WriteLn; i := 0;
    while (j < n) do
    begin
        if Not (i in used)
        then
        begin
            y[j] := x[i];
            Inc(j);
        end;
        Inc(i);
    end;
    Write('Y:');
    for i := 0 to n - 1 do
        Write(y[i]:4);
    WriteLn;
end.