. Внести в программку конфигурации таким образом, чтоб программа выводила сумму

. Внести в программку конфигурации таким образом, чтобы программка выводила сумму отрицательных элементов массива.
Program Massiv_1a;
Var a:Array [1..20] Of Integer
i,k:Intege
Begin
write('Введите количество элементов массива не более 20:');
Read(k);
For i:=1 To k Do
Read(a)
End.