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

var m,x,n,p,i:integer; s:boolean;
begin
p:=1;
writeln('Vvedite kolichestvo chisel:');
read(n);
writeln('Vvedite chislo s kotorim sravnit:');
read(m);
writeln('Vvedite cifri:');
for i:=1 to n do begin
readln(x);
if m<x then begin p:=p*x; s:=true; end;
end;
if s=true then writeln('Proizvedenie - ',p) else writeln('Net takih chisel');
end.