Given an integer array a (10) filled with a random number generator, find the max element

Given an integer array a (10) filled with a random number generator, find the max element of the array among even numbers.

program zz1;
const n = 10; // set the number of elements in the array
var i, max1: integer; // set variables of integer type
m: array [1..n] of integer;
begin
for i: = 1 to n do // write numbers in the array at random
m [i]: = random (21);
for i: = 1 to n do // display the array on the screen
write (m [i], ”);
writeln; // go to a new line to display the response
max1: = 0;
for i: = 1 to n do // find the maximum element
if m [i] mod 2 = 0 then if m [i]> max1 then max1: = m [i];
writeln (‘maximum element among even =’, max1); // display the answer
end.