Помогите пожалуйста создать массив 10 случайных целых чисел в спектре [-5;

const n = 15; var a: array[1..n] of integer; i, s, X: integer; begin writeln('Введите значение Х'); readln(X); Randomize; for i := 1 to n do a[i] := random(100) - 50; // случайные числа в промежутке [-50..50] s := 0; for i := 1 to n do if (a[i]) lt; X then s := s + abs(a[i]); writeln('Начальный массив'); for i := 1 to n do write(a[i]:4); writeln; writeln('Разыскиваемая сумма:', s:3) end. Контрольный пример: Введите значение Х 5 Исходный массив 17 -11 4 35 -13 -47 3 25 -50 4 28 33 -6 49 -48 Искомая сумма:186