Задан массив m на n. Числа m и n вводятся вручную. Заполнить массив случайным образом. Найти произведение чисел от 10 до

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.

еСлИ нУжНы БуДуТ пОяСнЕнИя ПиШиТе В лИчКу^^

const Size = 100;
var A : array [1..Size, 1..Size] of Integer; M, N, R, C : Byte; P : Double;
begin
Write('Введите M = '); ReadLn(M);
Write('Введите N = '); ReadLn(N);
WriteLn('Значения массива: '); P := 1;
for R := 1 to M do begin for C := 1 to N do begin A[R, C] := Random(100) - 49; Write('A[', R, ', ', C, '] = ', A[R, C]:4); if (A[R, C] > 9) and (A[R, C] < 21) then P := P * A[R, C]; end; WriteLn; end;
if P = 1 then WriteLn('числа в интервале от10 до 20 отсутствуют') else WriteLn('Произведение = ', P:0:0);
end.

"в Паскале нужно программу написать" ну дык и напиши
тогда будет что подправлять
нахаляву с нуля лень писать