Нужно исправить третью с конца строчку на-->

if a[k]<0 then s:=s+a[k]; (так как в случае, если число отрицательно,то мы к сумме прибавляем это число)

(в строчке на фото в случае, если число отрицательно, мы прибавляли всегда первый элемент)