Проблема с задачей

[diznt]

Написал я код

procedure TForm1.butOkClick(Sender: TObject);
var
 z : array [0..19] of integer;
 x,i : integer;
begin
 randomize;
  for i:=0 to 19 do
   begin
    z[i]:=random(101);
     if z[i]/2 then
      begin
       x:=x+z[i];
      end;
   end;
 txt.Text:=IntToStr(x);
end;

Ругаеться на то чтобы я z представил как boolean
что делать???

спасибо!

[dr.Chas]

if (z[i] mod 2)=0 then

[Somebody]

Только, наверное, div 2