Помогите решить задачу на Паскале, пожалуйста

Дана последовательность целых положительных чисел. Найти произведение только тех из них, которые больше заданного числа М. Если таких чисел нет, то выдать сообщение об этом.

Program Test; const Max = 10; //Последний член последовательности var i, M, proizv: integer; Bol: boolean; Arr: array[1..Max] of integer; Begin proizv := 1; Bol := false; Write('Введите М: '); Readln(M); Writeln(); for i:= 1 to Max do begin Arr[i] := i; if (Arr[i] > M) then begin proizv := proizv * Arr[i]; Bol := true; end; end; if (Bol = false) then Writeln('Элементов больше числа М нет!') else Writeln('Произведение = ', proizv); End.