исключительные ситуации (делфи)

[Defa4ka]

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

procedure TForm1.Button1Click(Sender: TObject);
var
a:array  of integer;
mas:array [1..10] of integer;
i,z:integer;
begin
z:=0;
setlength(a,10);
for i:=low(a) to high(a)
do begin
a[i]:=random(10)-random(10);
memo1.Lines.add(inttostr(a[i]));
if a[i]=0 then begin mas[z]:=i;
 z:=z+1;
end;
end;
memo2.lines.add(inttostr(mas[z]));
 end;
end.

какие тут могут быть исключительные ситуации? и как их добавить в код?

[Stilet]

Всмысле требуется сгенерировать искл. ситуацию, или поправить код механизмом их предотвращения?