на языке паскаль написать программу

у меня в решении 

1. обозначу сумма отрицательных чисел - S

2. мат. модель: if S [i]<0 then S=S+x[i]