Fill the array with 10 random numbers from 1 to 10. Check how many numbers will be greater

Fill the array with 10 random numbers from 1 to 10. Check how many numbers will be greater than the number A (set from the keyboard.)

program zz1;
const n = 10; // set the number of elements in the array
var i, A, k: integer; // set variables of integer type
m: array [1..n] of integer;
begin
write (‘enter the given number’);
read (A);
for i: = 1 to n do // get n random numbers and write them into an array
m [i]: = random (10) + 1;
for i: = 1 to n do // display the resulting array on the screen
write (m [i], ”);
writeln; // go to a new line to display the response
for i: = 1 to n do
if m [i]> A then k: = k + 1;
writeln (‘items larger than given =’, k); // display the answer
end.