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

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] gt; M) then
begin
proizv := proizv * Arr[i];
Bol := true;
end;
end;

if (Bol = false) then
Writeln('Элементов больше числа М нет!')

else
Writeln('Творенье = ', proizv);

End.