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

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.