Задача с массивами

[Undefitied]

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

Вот что я наделал, но ошибка в том, что я не формирую новый массив:

program my;
uses crt;
var
a:array[1..26] of integer;
b:array[1..26] of integer;
i,j,n,x:integer;
begin
clrscr;
writeln('Vvedite razmernost massiva');
readln(n);
for i:=1 to n do begin
writeln('Vvedite ',i,'-y element massiva');
readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0 then begin
b[i]:=a[i];
write(b[i],' ');
end;
for i:=1 to n do
if a[i] mod 2<>0 then begin
b[i]:=a[i];
write (b[i],' ');
end;
readln;
end.

[Stilet]

j:=1;
for i:=1 to n do 
 if a[i] mod 2=0 then begin b[j]:=a[i];write(b[j],' ');inc(j);end;

for i:=1 to n do
if a[i] mod 2<>0 then begin b[j]:=a[i];write (b[j],' ');inc(j);end;

Подойдет?

[Undefitied]

***В первый раз невнимательно прочитал код. Спс