Помогите пожалуйста) заполнить массив из 10 элементов случайными числами в интервале [-10, 10] и подсчитать сумму всех отрицательных элементов

vara: array [1..10] of integer;i, s: integer;beginfor i:=1 to 10 dobegina[i]:=random(21)-10;writeln('a[', i, '] = ', a[i]);if a[i]<0 then s:=s+a[i];end;writeln('Сумма всех отрицательных элементов:', s);end.