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

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.