Массив pas

[анастасия56]

помогите пожалуйста написать задачку в паскале очень нужно!!!!!!
дан одномерный массив А[N].Создайте 2 новых массива: в первый включите элементы исходного с четными,во второй с нечетными.Заранее спасибо

[DM_bite]

program Xd;
var i: integer;
a:array [1..10] of integer;
b,c: array [1..10] of integer;
 begin
 for i:= 1 to 10 do
  begin
  a[i]:= i;
   if i mod 2 = 0 then b[i]:= a[i];
   if not (i mod 2 = 0 ) then c[i]:= a[i];
 if not (b[i]=0) then  WriteLn(b[i],'___');
 if not (c[i]=0) then  WriteLn(c[i],'_!_');
   end;
   ReadLn;
   end.

[Chudo4258]

var i: integer;
a:array [1..10] of integer;
b,c: array [1..10] of integer;
 begin
 // ЗАПОЛНИТЬ МАССИВ А
 j:=1;
 k:=1;
 for i:= 1 to 10 do
   if i mod 2 = 0 then begin
                               B[j]:=A[i];
                               inc(j);
                             end
                      else begin
                               C[k]:=A[i];
                               inc(k);
                             end;
for i:=1 to j-1 do
 writeln(B[i]);
for i:=1 to k-1 do
 writeln(C[i]);
end.

[анастасия56]

спасибо огромное!!!!