Помогите пожалуйста) заполнить массив из 10 элементов случайными числами в промежутке

Для того, чтоб заполнить массив случайными числами, используем функцию random. Если у функции указан аргумент(N), то будут получаться числа из спектра от 0 до N, не включая N! Нам необходимо от -10 до 10, потому способом подгонки зададим: A[i]:=random(20)-10.
randomize - это процедура, нужная для активизации датчика случайных чисел.
program AA;
var
A: array [1..100] of integer;
i,s: integer;
begin
clrscr;
randomize;
for i:=1 to 10 do A[i]:=random(20)-10;
for i:=1 to 10 do if A[i]lt;0 then s:=s+ A[i];
writeln(Сумма отрицательных частей массива одинакова: s);
readln
end.