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

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.