Заполнить массив состоящий из 10 элементов случайными целыми числами из промежутка [-50;50]. Выведите на экран и вычислите сумму всех отрицательных элементов. Как в программе паскаль. Заранее огромное спасибо с:

const   n = 10; var   x: array[1..n] of integer;   i, s: integer; begin   Randomize;   Writeln('Элементы массива');   s := 0;   for i := 1 to n do   begin     x[i] := Random(101) - 50;     Write(x[i]:4);     if x[i] < 0 then s := s + x[i]   end;   Writeln;   Writeln('Сумма отрицательных элементов равна ', s); end. Тестовое решение: Элементы массива   50  36   5 -13  19  -3  50  -5 -39  12 Сумма отрицательных элементов равна -60