Вводится последовательность из n чисел. найти сколько в ней нулей

 var   a,i,n,k : integer;   
begin  k := 0; 
 write ('n = '); 
readln (n);   
 for i := 1 to n do 
  begin     read (a);   
  if a =0 then     
 k := k +1;    end;     
writeln (k,' - кол-во нулей');     
    end.