Вычислить произведение тех элементов матрицы, которые больше E - Pascal ABC

Формулировка задачи:

Вычислить произведение тех элементов матрицы ,которые больше E,но меньше H(Е и Н -заданные значения ,Е<Н)

Решение задачи: «Вычислить произведение тех элементов матрицы, которые больше E»

Листинг программы

var
   i,j,e,h,r:integer;
   p:longint;
begin
randomize;
repeat
  readln(e,h);
until e<h;
p:=1;
for i:=1 to 5 do
  begin
    for j:=1 to 5 do
      begin
        r:=random(9)+1;
        write(r:3);
        if (r>e) and (r<h) then
          p:=p*r;
      end;
    writeln;
  end;
writeln('Произведение: ',p);
end.

Объяснение кода листинга программы

В начале кода объявляются переменные i, j, e, h, r и p типа integer и longint соответственно.
Функция randomize вызывается для инициализации генератора случайных чисел.
В цикле repeat считываются два числа от пользователя, пока e меньше h.
Переменная p инициализируется единицей.
В вложенном цикле for i=1 до 5 выполняется пять раз.
В каждом проходе цикла for j=1 до 5 выполняется внутренний цикл for r=random(9)+1 выполняется девять раз (от 1 до 9).
Для каждого значения r выводится число r в формате 3.
Если r больше e и меньше или равно h, то значение переменной p умножается на r.
По завершении внутреннего цикла for выводится число p в формате 3.
Конец программы.