Если в массиве количество нечётных по значению элементов более 3, найти произведение положительных элементов

{Если в массиве количество нечётных по значению элементов более 3,
найти произведение положительных элементов, иначе - отрицательные
элементы увеличить на 3}
const
  n=10;
var
  k,i:integer;
  a:array[1..n] of integer;
  p:real;
begin
  randomize;
  k:=0;
  writeln('Исходный массив');
  for i:=1 to n do
    begin
      a[i]:=Integer(Random(n)) - n div 2;
      write(a[i]:4);
      if not odd(abs(a[i])) then
        inc(k);
    end;
  writeln;
  writeln('Количество нечётных по значению элементов: ',k);
  if k>3 then
    begin
      p:=1; // не рассматривается случай, когда нет чисел>0
      for i:=1 to n do
        if a[i]>0 then
          p:=p*a[i];
      writeln('Произведение положительных элементов: ',p:0:2);
    end
  else
    begin
      for i:=1 to n do
        if a[i]<0 then
          a[i]:=a[i]+3;
        writeln('Измененный массив');
      for i:=1 to n do
        write(a[i]:4);
    end;
  readln;
end.