Составьте программку замены нулевых элементов таблицы единицами Контрольный пример n=5 Данные

program zamena_0_na_1;
var n,i,j:integer;
a:array[1..100] of integer;
begin
read(n);//чтение размера входных данных
for i:= 1 to n do
begin
read(a[i]);//чтение входных данных
if(a[i]=0) then a[i]:=1;//подмена нуля на единицу
end;
for i:= 1 to n do
begin
write(a[i], ); //вывод данных после преображения
end;
end.