Дан массив 10-ти целых чисел найдите среднее арифметическое чётных отрицательных чисел pascalabc

//Pascal
//Массив заполняется случайными числами от -10 до 10
var
  A: array[1..10] of integer;
  i, Count: byte;
  ArithMean: real;
begin
randomize;
for i := 1 to 10 do
begin
  A[i] := random(21)-10;
  if ((A[i] < 0) and (A[i] mod 2 = 0)) then
  begin
  ArithMean := ArithMean + A[i];
  Count := Count + 1;
  end;
  write(A[i],' ');
end;
writeln;
writeln('Среднее арифметическое = ',(ArithMean/Count):0:2);
readln;
end.