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

const n=10;

var a: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.