Паскаль задача на обработку последовательностей, помогите найти в чем ошибка???

[Nubik]

Дано целое число N и набор из N ненулевых целых чисел. Вывести в том же порядке все четные числа из данного набора и количество K таких чисел.

***************************Программ а вводит с клавиатуры число N затем N чисел выводит количество четных чисел, и вместо этих четных чисел какую то ерунду, помогите плиз******************************* ***

program n_3;
var a: integer;
x,i,n,k:integer;
begin
writeln('vvedite N');
read(n);
writeln('************');
k:=0;
for i:=1 to n do
begin
writeln('vvodite chisla');
read(x);
if(not(odd(x))) then
begin
k:=k+1;
a:=x;
end;
end;
write('chetnyi chisla ', k,':');
for i:=1 to k do write(a:6);
writeln;
read;
end.

[Shaddy_R]

На сколько я понимаю, программа выводит последнее четное число в количестве, равному числу четных чисел.
Вам нужно сохнанять четные числа в массив, а потом вводить его

[dr.Chas]

program n_3; 
uses crt;
var a: array[1..20] of integer; 
     x,i,n,k:integer; 
begin 
  clrscr;
  writeln('vvedite N'); 
  read(n); 
  writeln('************'); 
  k:=0; 
  for i:=1 to n do 
  begin 
    writeln('vvodite chisla'); 
    read(x); 
    if(not(odd(x))) then 
    begin 
      k:=k+1; 
      a[i]:=x;
    end; 
  end; 
  write('chetnyi chisla ', k,':'); 
  for i:=1 to k do write(a[i]:6); 
  
  repeat 
  until keypressed; 
end.

Познакомтесь с темой в паскале "массивы". И оформляйте код как положено с помощью кнопки #