Задача: В целочисленной последовательности есть нулевые элементы.Создать массив из номеров этих элементов.

Program mas;
Var a:array [1..10] of integer;
i:byte;
Begin
Randomize;
for i:=1 to 10 do
begin
a[i]:=random (10);
write (a[i]); end;writeln;

это заполнение первого массива.а как второй сделать?