Задан массив m на n. Числа m и n вводятся вручную. Заполнить массив случайным образом. Найти произведение чисел от 10 до 20. Если таких чисел нет то выводить сообщение «числа в интервале от 10 до 20 отсутствуют» — Pascal(Паскаль)

Program meow;

type
mas=array[1..100] of integer;
matr=array [1..100] of mas;
var
a:matr;
s,m,n,i,j:integer;
Begin
writeln('Введите число строк м=');
readln(m);
writeln('Введите число столбцов Н=');
readln(n);
randomize;
for i:=1 to m do
for j:=1 to n do
a[i,j]:=random(100);
s:=1;
writeln('Полученная матрица');
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
for i:=1 to m do
for j:=1 to n do
if (a[i,j]> 10) and (a[i,j]<20) then
s:=s*a[i,j];
if s=1 then writeln('Чисел в заданном диапазоне нет') else
writeln('Полученное произведение=',s);
end.