Найти сумму значений элементов массива, больших некоторой величины М - Pascal ABC

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

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

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

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

program SUMMA10; {Заполнение массива}
 const n=10;    {вводом с клавиатуры}
 var s,i,m:integer;
     a:array [1..n] of integer;
begin
 for i:=1 to n do
  begin
   write(‘Введите,a[’,i,’]=’);
   readln(a[i]);
  end;
 writeln(‘Исходный массив:’);
 for i:=1 to n do
  write(a[i],‘ ’); 
 writeln;
 write(‘Введите значение для поиска:’);
 readln(m);
 s:=0;
 for i:=1 to n do 
  if a[i]>m
   then s:=s+a[i];
 writeln('Сумма s=',s)
end.

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

Программа SUMMA10 предназначена для нахождения суммы значений элементов массива, которые больше определенной величины М. Константа n определяет количество элементов в массиве, которое вводится с клавиатуры. Переменные s, i и m также определены как целочисленные. Массив a представляет собой массив из n элементов, каждый из которых может быть введен пользователем. С помощью цикла for происходит заполнение массива значениями, введенными пользователем. Затем выводится исходный массив с помощью цикла for. Далее программа запрашивает у пользователя значение для поиска, которое сохраняется в переменной m. Затем создается переменная s, которая будет хранить сумму значений элементов массива, больших m. С помощью цикла for происходит проверка каждого элемента массива. Если элемент больше m, то его значение добавляется к переменной s. В конце программы выводится сумма s.