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

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

вводить в переменную x последовательно 25 чисел x. найти сумму тех чисел которые > заданного М емли таких чисел нет, то выдать сообщение. М вводится с клавиатуры

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

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

const n=25;
var x,m,s,i,k:integer;
begin
write('M=');
readln(m);
writeln('Введите ',n,' целых чисел');
k:=0;
for i:=1 to n do
 begin
  readln(x);
  if x>m then
   begin
    k:=1;
    s:=s+x;
   end;
 end;
if k=1 then write('s=',s)
else write('Чисел больше ',m,' нет');
end.

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

Переменная n инициализируется значением 25.
Задаются переменные x, m, s, i и k, которые являются целочисленными.
Выводится сообщение «M=» и считывается значение переменной m.
Выводится сообщение «Введите » и считывается количество целых чисел, которое не превышает значение переменной n.
Инициализируется переменная k значением 0.
В цикле for перебираются числа от 1 до n.
Для каждого числа x, введенного пользователем, проверяется условие x>m.
Если условие выполняется, то переменная k устанавливается равной 1, а переменная s увеличивается на значение x.
После завершения цикла for выводится сообщение, которое зависит от значения переменной k.
Если k=1, то выводится сообщение «s=», после чего выводится значение переменной s.
Если k не равно 1, то выводится сообщение «Чисел больше », после чего выводится значение переменной m.