Линейные массивы!

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

var i,j:integer;mass1:array[1..10] of integer;mass2:array[1..10] of integer;beginfor i:=1 to 10 do beginread(mass1[i]);if mass1[i]=0 then beginj:=j+1;mass2[j]:=i;end;end;for j:=1 to j dowrite(mass2[j]:3);end.