Прошу,помогите с задачей по инфе. 10 клас. Дан массив из 7 элементов.Найти среднее арифмитическое отрицательных элементов

var m: array[0..6] of integer;

sum1, n: integer;

begin

sum:=0;

n:=0;

for i:=0 to 6 do

begin

read(m[i]);

if (m[i] < 0) then

begin

sum:=sum+m[i];

n:=n+1;

end;

end;

writeln(sum/n);

end.