отыскать творение всех частей двумерного массива, больших данного числа

Язык какой? 
Паскаль
type massive=array[1..10,1..10] of integer;
var m:massive;
pr:real;
digit:integer;
i,k:byte;
flag:boolean; 
begin
for i:=1 to 10 do
for k:=1 to 10 do
readln(m[i,k]); //заполнение массива

writeln('Введите границу: ');
readln(digit);
pr:=1;
flag:=false;
for i:=1 to 10 do
for k:=1 to 10 do
if m[i,k]gt;digit then
 begin
pr:=pr*m[i,k]; //все, что больше данного перемножаем
flag:=true;
end;
if flag=false then writeln('Чисел больше данного нет.')
else writeln('Общее творенье: ',pr:1:0);
END.