В массике 50 элементов , числа от -50 до 50 , вычислить среднее арифметическое отрицательных чисел

Const
n=50;
Var
a:array[1..n]of integer;
k,i,s:integer;
begin
   for i:=1 to n do
      begin
          a[i]:=random(101)-50;
           write(a[i]:4);
              if a[i]                 begin
                     s:=s+a[i];
                      k:=k+1;
                 end;
      end;
writeln;
if k0 then
     writeln(s/k)
else
     writeln(Нет отриц)
end.