Процедуры и функции. Найти минимальное произведение ненулевых элементов в нечетных строках

var a,b,c :array[1..5,1..5] of longint;
  min,i,j,p1,p2,p3:longint;
procedure massivs ;
begin
  for i:=1 to 5 do
   for j:=1 to 5 do
   begin
     a[i,j]:=random(15);
     b[i,j]:=random(15);
     c[i,j]:=random(15);
  end;
  writeln('Массив А');
  for i:=1 to 5 do
  begin
    for j:=1 to 5 do
      write (a[i,j]:4);
      writeln;
  end;    writeln('Массив В');
   for i:=1 to 5 do
  begin
    for j:=1 to 5 do
      write (a[i,j]:4);
      writeln;
  end;   writeln('Массив С');
   for i:=1 to 5 do
  begin
    for j:=1 to 5 do
      write (c[i,j]:4);
      writeln;
  end;
end;
function mi(a,b,c,d:longint):longint;
var m:longint;
begin   m:=10000;
  if m>a then m:=a;
    if m>b then m:=b;
     if m>c then m:=c;
      if m>d then m:=d;
      mi:=m; 
end;
begin
  randomize;
  massivs;
  min:=1000;
 
  for i:=1 to 5 do
  if odd(i) then
  begin
   p1:=1; p2:=1; p3:=1;
   for j:=1 to 5 do
   begin
     if a[i,j]<>0 then p1:=p1*a[i,j];
      if b[i,j]<>0 then p2:=p2*b[i,j];
       if c[i,j]<>0 then p3:=p3*c[i,j];
   end;
   min:=mi(p1,p2,p3,min);
  end;
 
  writeln('Минимальное проиведение : ',min);
end.