В одномерном массиве найти сумму всех отрицательных чисел.

благодарю

var  a: array of integer;b, c: integer;beginwriteln('Введите размерность массива');readln(b);setlength(a, b);writeln('Введите ', b, ' элемента(ов)');for var i := 0 to b - 1 dobeginreadln(a[i]);if a[i] < 0 thenc := c + a[i];   end;writeln('Сумма отрицательных элементов массива =', c:4);end.вроде так

// PascalABC.NET 3.2, сборка 1370 от 24.12.2016// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;  Writeln('Сумма отрицательных=',a.Where(x->x<0).Sum)end.Примерn= 1399 -16 -23 -94 -91 64 -40 34 -82 -27 -34 -58 48Сумма отрицательных=-465