Даны N вещественных чисел. Найти среднее арифметическое отрицательных чисел

Program n1; var n,i,k: integer; sum,a: real; begin sum:=0; k:=0; write('n='); readln(n); for i:=1 to n do begin readln(a); if a<0 then begin sum:=sum+a; k:=k+1; end; end; writeln(sum/k); end.