По информатике.дана последовательность целых чисел а1 а2 . вычислите сумму отрицательных элементов

 const     n = 10;   
    var 
  a : array [1..n] of integer; 
   s,i : integer;     
 begin   
//Формирование массива пропускаю 
     s:= 0; 
  for i := 1 to n do 
  if a[i] < 0 then   
  s:= s + a[i];
   writeln (s);  
  end.