Задача по формированию массивов

[Лиза_]

Дан массив x, состоящий из N элементов. Сформировать массив y, состоящий их четных элементов исходного массива.
Я составила программу, но она не работает. Помогите пожалуйста разобраться!

var y, x:array[1..10] of integer;
N, i, j:integer;
begin
j:=0;
write('N=');
read(N);
for i:=1 to N do
begin
write('x[',i,']=');
read(x[i]);
end;
for i:=1 to N do
if x[i] mod 2=0 then
begin j:=j+1;
for y:=1 to j do
y[i]=x[i]
else writeln (Chetnyh chisel net');
end;
writeln(y[i]);
end.

[VIK_aka_TOR]

var y, x:array[1..10] of integer;
N, i, j:integer;
begin
 j:=0;
 write('N=');
 read(N);
 for i:=1 to N do
  begin
   write('x[',i,']=');
   read(x[i]);
  end;
 for i:=1 to N do
  if x[i] mod 2=0 then
    begin 
      j:=j+1;
      y[j]=x[i];
      writeln(y[j]);
    end;

 if j = 0 then
   writeln (Chetnyh chisel net');

end.

как-то так.
p.s. естественно у вас n введенное не должно превышать 10 (размерность массива).