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

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 20) and (a[i]<0) then Inc (sum, a[i]);

end;

writeln (sum);

end.