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

const n=10; var    s1,s2,i: integer;   var a: array[1..n] of integer; begin   s1:=0; s2:=0;   writeln ('Исходный массив');   for i:=1 to n do begin     a[i]:=random(-10,10);     write (a[i]:3);     if a[i]>=0       then s1:=s1+a[i]       else if a[i] mod 2<>0         then s2:=s2+a[i];   end;   s1:=s1*2;   writeln;     writeln ('Удвоенная сумма положительных элементов = ',s1);   writeln ('Сумма нечетных отрицательных элементов = ',s2); end. --------------------Результат:---------------------- Исходный массив  -2  0  8 -6 -1  6  7 -4 -7-10 Удвоенная сумма положительных элементов = 42 Сумма нечетных отрицательных элементов = -8