Помогите решить) Подсчитайте количество нулевых элементов в массиве из 10 целых…

Var a: array[1… 10] of integer; i,k: integer; beginwriteln ('vedite 10 chisel masiva'); k: =0; for i: =1 to 10 do read (a[i]); for i: =1 to 10 do beginif (a[i]=0) then k: =k+1; end; writeln ('kolichestvo nuley ',k); writeln ('massiv v obratnom porydke'); for i: =10 downto 1 do write (',a[i]); end.