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

var a: array[1..100] of Integer;n,i,sum,k: Integer;beginwriteln('Введите кол-во чисел');readln(n);for i:=1 to n dobeginwriteln('Введите ',i,' число');readln(k);a[i]:=k;end;for i:=1 to n dobeginif (a[i] mod 2<>0) and (a[i]<0) then Inc(sum,a[i]);end;writeln(sum);end.