Водномерном массиве а , состоящий из n действительных элементов , вычислить : a ) сумму отрицательных элементов массива ; b ) количество элементов , удовлетворяющих условию 7 pascal

Const n=10;
var a:array[1..n] of real;
i,k:integer;
s:real;
begin
s:=0; k:=0;
for i:=1 to n do
begin
readln(a[i]);
if a[i]<0 then s:=s+a[i];
if (a[i]<5) and (a[i]>-7) then inc(k);
end;
writeln(s,' ',k);
end.