переделать код, в код с использованием массива..

Помогите пожайлуста переделать этот програмный код, в код с использованием массивов..
вот задание-Даны действительные а1,...,аn. Вычислить сумму положительных и произведение четных членов данного массива,если таких членов нет, то выдать сообщение.(ввод с клавиатуры осуществляется)
Общий вид оператора смотрите после кода.................................... ......................
program rep;
uses crt;
var k,x,a,sum,proiz: integer;
begin
clrscr;
sum:=0;
proiz:=1;
writeln('введите количество членов данного массива');
repeat
readln(x);
if x<=0 then
writeln('отрицательное и нулевое число элементов невозможно');
until x>0;
repeat
k:=k+1;
writeln('Введите данные члены');
read(a);
if a>0 then
sum:=sum+a;
if a<>0 then
if a mod 2 = 0 then
proiz:=proiz*a;
until k>=x;
if sum=0 then
writeln('Положительных элементов нет')
else
writeln('Сумма положительных элементов равна ', sum);
if proiz=1 then
writeln(' Четных членов нет')
else
writeln(' Произведение четных равно ', proiz);
readln;
end.
Общий вид оператора: ........................................ ........................................ .........................
for <параметр_цикла>:=<нач.знач.> to <кон.знач.> do <оператор>;
или
for <параметр_цикла>:=<нач.знач> downto <кон.знач> do
<оператор>;
Шаг изменения параметра цикла строго равен 1.

0