Найти среднеарифметическое элементов последовательности, превосходящих некоторое число С - PascalABC.NET

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

Найти средне арифметическое элементов последовательности, превосходящих некоторое число С. Массив заданный датчиком случайных чисел на интервале [-44,34]. Размер произвольный. Значение С вводится с экрана. Паскаль

Решение задачи: «Найти среднеарифметическое элементов последовательности, превосходящих некоторое число С»

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

Uses Crt;
const 
n=10;
var
a: array [1..n] of integer;
s,k,c:integer;
begin
write('sislo c='); 
read(c);
writeln('massiv:');
for var i:=1 to n do begin
a[i]:=random(-44,34);
write(a[i]:4);
end;
writeln;
writeln('sisla bolsie c:');
s:=0; k:=0;
for var i:=1 to n do begin
if a[i]>c then begin
k:=k+1; s:=s+a[i];
write(a[i]:4);
end; end;
if k=0 then begin
writeln('ih net');
end else
writeln('ih srednee arifmetiteskoe=',s/k);
end.

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

Импортируется библиотека Crt.
Задается константа n=10, которая определяет размер массива a.
Создается массив a размером n, который заполняется случайными числами от -44 до 34 с помощью функции random.
Пользователю предлагается ввести число С.
С помощью цикла for и операторов if и else происходит проверка каждого элемента массива a. Если элемент больше числа С, то он прибавляется к переменной s (сумма) и к переменной k (количество).
После проверки всех элементов массива выводится сообщение, если количество элементов больше нуля, то вычисляется и выводится среднеарифметическое s/k.
В противном случае выводится сообщение ih net.