Найти произведение только тех чисел, которые больше заданного числа - Pascal ABC

Формулировка задачи:

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

Решение задачи: «Найти произведение только тех чисел, которые больше заданного числа»

Листинг программы

program bb;
uses crt;
const n=10;
var a:array[1..10]of integer;
i,m,p:integer;
begin
randomize;
for i:=1 to n do
begin
write('a[',i,'] =');
read(a[i]);
end;
writeln;
write('Г‚ГўГҐГ¤ГЁГІГҐ M = ');
read(m);
writeln;
p:=1;
for i:=1 to n do
if a[i]>m then
begin
p:=p*a[i];
end;
if p<>1 then
write('p = ',p)
else
write('Г’Г*ГЄГЁГµ Г·ГЁГ±ГҐГ« Г*ГҐГІ');
end.

Объяснение кода листинга программы

Объявление переменных: — a: массив из 10 целых чисел — i, m, p: целочисленные переменные
Инициализация генератора случайных чисел
Заполнение массива a случайными числами
Вывод на экран всех чисел массива a
Ввод на экран сообщения M = и считывание числа m
Инициализация переменной p единицей
Перебор чисел массива a
Если число в массиве больше m, то умножить его на p
Если p не равно единице, то вывести на экран значение p
Если p равно единице, то вывести на экран сообщение Г’Г*ГЄГЁГµ Г·ГЁГ±ГҐГ« Г*ГҐГІ