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

Var
n,i,k: integer;
a: array [1..10] of integer;
begin
for i:=1 to 10 do
begin
read (a[i]);
 if a[i]=1 then n:=n+1;
 end;
 writeln ('edinice=',n,' elements');
end.