В матрице найти произведение отрицательных элементов во всех нечетных столбцах

var a:array[1..4,1..9] of integer;
    i,j,p1,p2,p3,p4,p5:integer;
begin
   p1:=1; p2:=1; p3:=1; p4:=1; p5:=1;
   writeln('Ââåäèòå ìàòðèöó');
   for i:=1 to 4 do
      for j:=1 to 9 do
         readln(a[i,j]);
   for i:=1 to 4 do
      for j:=1 to 1 do
         p1:=p1*a[i,j];
         if p1=1 then writeln('Òàêèõ íåò!')
         else writeln('Ïðîèçâåäåíèå 1-ãî ñòîëáöà:',p1);
   for i:=1 to 4 do
      for j:=3 to 3 do
         p2:=p2*a[i,j];
         if p2=1 then writeln('Òàêèõ íåò!')
         else writeln('Ïðîèçâåäåíèå 3-ãî ñòîëáöà:',p2);
   for i:=1 to 4 do
      for j:=5 to 5 do
         p3:=p3*a[i,j];
         if p3=1 then writeln('Òàêèõ íåò!')
         else writeln('Ïðîèçâåäåíèå 5-ãî ñòîëáöà:',p3);
   for i:=1 to 4 do
      for j:=7 to 7 do
         p4:=p4*a[i,j];
         if p4=1 then writeln('Òàêèõ íåò!')
         else writeln('Ïðîèçâåäåíèå 7-ãî ñòîëáöà:',p4);
   for i:=1 to 4 do
      for j:=9 to 9 do
         p5:=p5*a[i,j];
         if p5=1 then writeln('Òàêèõ íåò!')
         else   writeln('Ïðîèçâåäåíèå 9-ãî ñòîëáöà:',p45);
end.

uses crt;
var
   a: array [1..4,1..9] of integer;
   j, i ,proizvedenie: integer;
begin
proizvedenie:=1;
for i:=1 to 4 do
begin
    for j :=1 to 9 do
        begin
             a[i,j]:=random(10)-5;
             write(a[i,j]:3);
             if (odd(j)) and (a[i,j]<0) then proizvedenie:=proizvedenie*a[i,j];
        end;
    writeln;
end;
Writeln('Произведение отрицательных элементов во всех нечетных столбцах = ',proizvedenie);
end.