Даны целые числа a1..a50. Получить сумму тех чисел данной последовательности, которые нечетны и отрицательны — Pascal(Паскаль)

program summa;
var sum,i:integer;
     a:array[1..50] of integer;
begin
for i:=1 to 50 do
read(a[i]);
sum:=0;
for i:=1 to 50 do
if odd(a[i]) and (a[i]<0) then sum:=sum+a[i];
writeln('summa ',sum);
readln
end.