Дан одномерный массив, отыскать сумму всех нечетных отрицательных чисел этого массива.

Var a: array[1..100] of Integer;
n,i,sum,k: Integer;
begin
writeln('Введите кол-во чисел');
readln(n);
for i:=1 to n do
begin
writeln('Введите ',i,' число');
readln(k);
a[i]:=k;
end;
for i:=1 to n do
begin
if (a[i] mod 2lt;gt;0) and (a[i]lt;0) then Inc(sum,a[i]);
end;
writeln(sum);
end.