Ввести с клавиатуры 7 чисел.Отыскать количество нечетных отрицательных чисел. (в программке

Var a,b:integer;
begin 
Write('Введите 7 чисел: '); 
for var i:=1 to 7 do 
begin    
read(a);   
if (alt;0) and (абс(a) mod 2=1)     
then inc(b); 
end;    
writeln('Количество нечетных отрицательных чисел: ',b);  
end.

Пример:
 Введите 7 чисел: 1  9  12  -2  -5  -29  -50Количество нечетных отрицательных чисел: 2