Нужно доработать прогу в ПАСКАЛЕ

[Nubik]

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

Вот собственно программа, нужно убрать массив, чтоб последовательность вводилась с клавиатуры, хотя мне кажется там условие немного некоректное, потому что числа можно до бесконечности вводить=)
program n_3;
var a:array[1..100] of integer;
x,i,n,k:integer;
begin
read(n);
k:=0;
for i:=1 to n do
begin
read(x);
if(odd(x)) then
begin
k:=k+1;
a[k]:=x;
end;
end;
write(k,':');
for i:=1 to k do write(a:6);
writeln;
end.

[Анатоль]

for i:=1 to k do write(a:6);????
Может вместо a нужно написать a[i]?

[Nubik]

Короч фишка в том что надо не массив чтоб был а с клавиатуры вводишь число N (количество перменных) а потом эти переменные. Вот я не знаю как это осуществить)