Вводится последовательность из N целых чисел. Отыскать сумму всех отрицательных чисел.

Хорошая задача, в одну строчку.

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('S=',ReadSeqInteger(ReadInteger('n=')).Where(k-gt;klt;0).Sum)
end.

Пример
n= 8
34 -12 0 16 -5 -7 2 -9
S=-33

Объяснения
ReadInteger('n=') выдает подсказ 'n=' и организует ввод целого числа, мы обозначим его условно n.
ReadSeqInteger(n) обеспечивает получение с клавиатуры последовательности n целых чисел.
Эта последовательность проходит через фильтр .While(k-gt;klt;0), который пропускает только отрицательные числа.
Все, что прошло через фильтр, будет просуммировано при поддержки .Sum
И осталось только вывести итог при поддержки Writeln('S=',здесь_сумма)
Вот и все.

Переменные:
n - количество чисел;
i - переменная цикла;
x - очередное число;
sum - сумма отрицательных чисел.

program primer_1;
Var i,n,x,sum:integer;
Begin
Writeln('Введите длину последовательности N= ');
Readln(n);
Sum:=0;
For I:=1 to n do
Begin
Writeln('Введите ', i, '-ое число: ');
Readln(x);
if x lt; 0 then sum:=sum+x
end;
If sum = 0
then writeln('Отрицательных чисел нет.')
Else writeln('Сумма отрицательных чисел = ', sum);
End.