Определить сколько нулевых элементов в массиве

Var
  A: array [1..10] of real;
  i, n: integer;  //n - счетчик

begin
  n:= 0;
  for i:= 1 to 10 do
  begin
    writeln('Введите число');
    readln(A[i]);
    if A[i] = 0 then n:= n + 1;
  end;
  writeln('Количество нулевых элементов:  ', n);
end.