Найти количество нулевых элементов массива А(16)

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