Вычислить произведение ненулевых элементов массива b[1..5,1..5], кратных 5 — Pascal(Паскаль)

var
  a: array [1 .. 5, 1 .. 5] of integer;
  i, j, sum: integer;

begin
  sum := 1;
  for i := 1 to 5 do
  begin
    writeln;
    for j := 1 to 5 do
    begin
      a[i, j] := random(10);
      write(a[i, j]:3);
      if (a[i, j] <> 0) and (a[i, j] mod 5 = 0) then
        sum := sum * a[i, j];
    end;
  end;
  writeln;
  writeln(sum);
end.