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

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