Из одномерного числового массива a длинной n получить массив b , заменив все нулевые элементы - единицами. подсчитать число замен. вывести на экран массивы a и b и ответ на вопрос

Паскаль:
program special;const n=15; var i: integer;A: array [1..n] of integer;B: array [1..n] of integer;beginrandomize;for i:=1 to n do A[i]:=random(5);for i:=1 to n do beginif A[i]=0 then b[i]:=1 else B[i]:=A[i];end;for i:=1 to n do write(A[i],' ');writeln;for i:=1 to n do write(B[i],' ');end.