Given an n by m array, find the minimum three-digit number written in the array. if there are no such numbers

Given an n by m array, find the minimum three-digit number written in the array. if there are no such numbers, then display the message “There are no such numbers”.

program zz1;
const n = 3;
m = 3; // set the number of elements in the array
var i, j, min: integer; // set variables of integer type
b: array [1..n, 1..m] of integer;
begin
for i: = 1 to n do
for j: = 1 to m do // get numbers and write them into an array
b [i, j]: = random (501);
for i: = 1 to n do // display the resulting array on the screen
begin
for j: = 1 to m do
write (b [i, j]: 4);
writeln;
end;
min: = 100000;
for i: = 1 to n do
for j: = 1 to m do
begin
if (b [i, j]> 99) and (b [i, j] <1000) then if b [i, j] <min then min: = b [i, j];
end;
if min = 100000 then write (‘there are no such numbers’) else write (‘the minimum three-digit number of the array =’, min);
end.