в массиве сформированным случайным образом все элементы =0 заменить числом 28!
помогите, нужна постановка программы, блок схема(необязательно) программа,

program massiv;Uses crt;Var a:array [0..15] of integer;       i:integer;beginFor i:=1 to 15 dobegina[i]:=random(100);If a[i]=0 then a[i]:=28;writeln(a[i]);end;end.

var i,n:integer;a:array[1..1000] of integer;beginwrite('введите кол-во элементов');read(n);for i:=1 to n do begina[i]:=random(10);write(a[i]);end;for i:=1 to n do beginif a[i]=0 then a[i]:=28;write(a[i]);end;end.