Найти сумму элементов массива, больше n - PascalABC.NET

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

В одномерном массиве состоящем из 10 целых чисел (диапазон формируется с помощью random -50 до 50), найти Сумму элементов больше n;

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

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

const n=10;
 
var x:array [1..n] of integer;
    i,k,sum:integer;
 
Begin
Write('Введите число K: '); Readln(K);
 
Sum:=0;
 
Writeln('Исходный массив: ');
for i:=1 to n do
    Begin
    X[i]:=Random(101)-50;
    Write(X[i]:4);
    
    if X[i] > K then Inc(Sum,X[i]);
    end;
Writeln;
 
Writeln('Ответ: ',Sum);
end.

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

Объявляются константы: n = 10 (номер элемента, значение которого нужно проверить на условие), K (неизвестное число, введенное пользователем).
Создается массив типа integer с именем x размером n.
Объявляются переменные: i (для цикла), k (для хранения введенного числа), sum (для хранения суммы элементов).
Запрашивается ввод числа K с помощью функции Readln().
Начальное значение суммы устанавливается равным 0.
Выводится сообщение Исходный массив: и происходит итерация по элементам массива x с помощью цикла for от 1 до n.
Каждый элемент массива x выводится на экран с помощью функции Write().
С помощью условного оператора if проверяется условие X[i] > K, если условие выполняется, то к переменной sum прибавляется значение текущего элемента массива x.
После завершения цикла выводится сообщение с результатом суммы, используя функцию Writeln().
Ответ: 0 (если ни один элемент массива не удовлетворяет условию, то сумма равна 0).