Найти сумму отрицательных элементов массива

Var {-1-. Опишите требуемый массив}
 
i, S: integer;
 
Begin
 
{-2-.Введите правильно формулу автозаполнения элементов массива числами из требуемого диапазона по условию задачи}
 
For i:= to do b[i]:=
 
{-3-. Выведите элементы массива через пробел}
 
For i:= to do write();
 
{-4-. Вставьте команду перевода курсора в начало новой строки}
 
{-5-. Запишите формулу вычисления сумму отрицательных элементов массива}
 
For i:= to do
 
if tneh S:=
 
{-6-. Запишите вывод суммы сумму отрицательных элементов массива на экран}
 
writeLn('Symma=',…)
 
end.

var a:array [1..10] of integer;
  i,S: integer;
begin
  
  for i:=1 to 10 do
    a[i]:=random(61)-30;
  
  for i:=1 to 10 do
    write(a[i],' ');
  writeln;
  
  for i:=1 to 10 do
    if a[i]<0 then S:=s+a[i];
  
  writeln('Сумма = ',S);
end.