Question

Почему при нескольких запусках получается ноль?

79244270de599f13746a5ced3a68cfb3.pas

Answer 1

Замени "a[i,j]:=random(10);" на "a[i,j]:=random(1,10);"

Answer 2

Вы ищете произведение ряда чисел, полученных при помощи вызова a[i,j]:=random(10);
Этот вызов порождает целые числа в диапазоне от 0 до 9, а появление нуля среди сомножителей обращает произведение в ноль.