Составьте программу ,которая находит сумму четных чисел и произведение нечётных чисел в диапазоне от 1 до 10

Const   N = 10;   
var   a, S1, S2: Integer;   
i, Q1, Q2: Byte;   
begin   
S1 := 0; Q1 := 0;   
S2 := 0; Q2 := 0;  
writeln(Введите , N, чисел:);   
for i := 1 to N do 
begin     
read(a);     
if a lt; 0 then 
begin      
S1 := S1 + a;       
inc(Q1)     
end;     
if a gt; 0 then 
begin       
S2 := S2 + a;       
inc(Q2)     
end;   
end;   
writeln;   
if Q1 gt; 0 then 
begin     
writeln(Сумма отрицательных чисел: , S1);     
writeln(Количество отрицательных: , Q1)   
end   
else 
writeln(Отрицательных нет);   
if Q2 gt; 0 then
begin     
writeln(Сумма положительных чисел: , S2);     
writeln(Количество положительных: , Q2)   
end   
else 
writeln(Положительных нет) 
end.