Var
  i,n,k:integer;
  p:longint;
  f,ff:boolean;
begin
  Write('Введите количество чисел -> '); Readln(n);
  Writeln('Тeперь вводите сами числа');
  p:=1; f:=false; ff:=false;
  for i:=1 to n do
  begin
    Read(k);
    f:=((k<0) and ((k mod 2)0));
    ff:=(ff or f);
    if f then p:=p*k
  end;
  if ff then Writeln('Произведение нечетных отрицательных чисел: ',p)
  else Writeln('Не было введено ни одного отрицательного нечетного числа')
end.

Тестовое решение:
Введите количество чисел -> 10
Тeперь вводите сами числа
5 -7 16 0 -3 4 -6 2 1 8
Произведение нечетных отрицательных чисел: 21