Дан массив с нулями,вывести порядковые номера элементов массива равные нулю

For i: 1 to n do
for j:1 to n do
if mas[i]=0 then
mas2[j]:=i

Program a;
var mas: array of integer;
i,n:integer;
begin
write('количетво элементов = ');
read (n);
setlength(mas,n);
writeln('перечислите знач. эл. ');
for i:=0 to n do
read(mas[i]);
writeln;
for i:=0 to n do
if (mas[i]=0) then write (i);
end;