Массив из номеров нулевых элементов последовательности

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

program Massive2;
const N=10;
var j,i:integer;
v:array [1..N] of integer;
a:array [1..N] of integer;
begin
for i:=1 to N do
begin
write('v[',i,'] = ');
readln (v[i])
end;
writeln;
j:=1;
for i:=1 to N do
if v[i]=0 then
begin
a[j]:=i;
write (a[j]:4);
j:=j+1
end;
readln;
end.