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

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

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