Вычислить среднее арифметическое отрицательных элементов вектора q(21) p.s.через программу паскаль

Const n=21;
var q:array[1..n] of integer;
i,s,k:integer;
begin
Randomize;
for i:=1 to n do
 begin
 q[i]:=random(51)-10;
 write(q[i]:4);
 end;
writeln;
k:=0; s:=0;
for i:=1 to n do
 if q[i]<0 then begin s:=s+q[i]; k:=k+1; end;
writeln('Среднее арифметическое отрицательных элементов = ',s/k);
end.

Пример:
  16  -1  -7   5  13  11  -2 -10  36  19   3  34  23  29  12  28   9  39  33  16  -6
Среднее арифметическое отрицательных элементов = -5.2