Посчитать кол-во нулей и заменить в массиве все элементы на 5.[1,10].Pascal

constn=10;

vara:array[1..n] of integer;

i, k: byte;

begin

k:=0;

for i:= 1 to n do

 a[i]:=random(100);

writeln('Исходный массив: ');

for i:= 1 to n do

 write(a[i],' ');

writeln(#10);

for i:=1 to n do

 if a[i]=0 then

 inc(k);

for i:= 1 to n do

 a[i]:=5;

writeln('Новый массив: ');

for i:= 1 to n do

write(a[i],' ');

writeln(#10);

writeln('Количество нулей: ',k);

end.