Найти сумму всех элементов массива вещественных чисел, больших заданного числа - Pascal (5641)

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

Нужна помощь в задаче не знаю что писать перед кодом помогите плизз))) Найти сумму всех элементов массива вещественных чисел, больших заданного числа.Размерность массива -20.Заполнение массива осуществить случайным числом от 50 до 100.

Sum:=0;
Readln(a);
For i:=1 to 20 do
Begin
  m[i]:=50+Random(1)*50;
  If m[i]>a then Sum:=Sum+m[i];
End;

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

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

var
  i : integer;
  m : array [1..20] of real;
  a, Sum : real;
begin
  Sum:=0;
  write('введите a: ');
  Readln(a);
  Randomize;
  For i:=1 to 20 do
  Begin  
    m[i] := 50 + random(51) + random;
    Write(m[i]:6:2);
    If m[i] > a then Sum:= Sum + m[i]
  End;
  writeln;
  writeln('сумма чисел больших a равна: ', Sum:6:2);
  readln
end.

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

Создается переменная Sum, которая будет использоваться для хранения суммы чисел.
Создается переменная a, которая будет использоваться для хранения введенного пользователем числа.
Создается массив m типа array [1..20] of real, который будет использоваться для хранения вещественных чисел.
Задается начальное значение переменной Sum равным 0.
Выводится сообщение, предлагающее пользователю ввести число a.
Используется функция Randomize, чтобы инициализировать генератор случайных чисел.
Запускается цикл For, который будет выполняться 20 раз.
Внутри цикла создается переменная i типа integer, которая будет использоваться для итерации по элементам массива m.
Внутри цикла вычисляется значение каждого элемента массива m как 50 + случайное число от 51 до 55.
Выводится значение каждого элемента массива m с помощью функции Write.
Проверяется условие If m[i] > a с помощью условного оператора If. Если значение элемента массива m[i] больше значения переменной a, то к переменной Sum прибавляется значение элемента массива m[i].
После выполнения цикла For выводится сообщение с помощью функции writeln, которое говорит о том, что сумма чисел, больших заданного числа a, равна значению переменной Sum.
С помощью функции readln происходит чтение ввода пользователя.