Сформировать два массива: в первый включить четные элементы исходного массива, во второй – нечетные

program massive;
uses crt;
var a,b,mass: array [1..150] of integer;
     n,i,j,p,s,c: integer;
begin
    writeln('Введите размер исходного массива:');
    readln(n);
    s:=0;
    c:=0;
    Randomize;
    for i:=1 to n do
    begin
            mass[i]:=random(9)+1;
            if (mass[i] mod 2 = 0) then
        begin
            inc(s);
            a[s]:=mass[i];
        end
        else begin
            inc(c);
            b[c]:=mass[i];
        end;
    end;
    //Сортируем четные
    for i:=2 to s do
    begin
        for j:=i-1 downto 1 do
        begin
            if (a[i] < a[i-j]) then
            begin
                p:=a[i];
                a[i]:=a[i-1];
                a[i-1]:=p;
            end;
        end;
    end;
    if (a[s] < a[s-1]) then
    begin
        p:=a[s];
        a[s]:=a[s-1];
        a[s-1]:=p;
    end;
    //Сортируем нечетные
    for i:=2 to c do
    begin
        for j:=i-1 downto 1 do
        begin
            if (b[i] > b[i-j]) then
            begin
                p:=b[i];
                b[i]:=b[i-1];
                b[i-1]:=p;
            end;
        end;
    end;
    if (b[c] > b[c-1]) then
    begin
        p:=b[c];
        b[c]:=b[c-1];
        b[c-1]:=p;
    end;
    //Вывод результата
    write('Исходный массив: ');
    for i:=1 to n do write(mass[i], ' ');
    writeln;
    write('Массив четных элементов: ');
    for i:=1 to s do write(a[i], ' ');
    writeln;
    write('Массив нечетных элементов: ');
    for i:=1 to c do write(b[i], ' ');
    readln;
end.