Отыскать индексы всех частей массива, значение которого одинаково нулю, если такой

var a: array[1..100] of integer;

b: array[1..100] of byte;

i,j: integer;

begin

randomize; 

for i := 1 to 100 do a[i] := random(100);

for i := 1 to 100 do if a[i] = 0 then begin

j := j + 1;

b[j] := a[i];

end;

writeln(Индексы нулевых элементов массива);

for i := 1 to j then write(b[i]:3);

end.