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

По моему вот так.
uses crt;
const N= 10;  {N - количество чисел в последовательности}
var i,p, M:integer; a:array[1..N] of integer;
begin
 p:=1;
write(введите число M=);readln(M);
writeln(введите исходный массив);
for i:=1 to N do  {начало цикла по кол эл  }
  begin 
   write(a[,i,]=); readln(a[i]);   {ввод эл массива} 
   if a[i]gt;M then p:=p*a[i];
 end;
if M=1 then writeln( элементов  gt; M  нет)   
                else  writeln(p=,p);   {печать произведения}
readln
end.