Если элемент отрицательный, то к s прибавляют значение 1-го элемента. Т.к. в предложенных элементах 1-й элемент равен 1, а количество отрицательных элементов равно 4, то данная программа выдаст 4.
Чтобы исправить нужно строку if a[k]<0 then s:=s+a[1] заменить на if a[k]<0 then s:=s+a[k].</p>