Помогите с информатикой, пожалуйста(паскаль)

a: array[0..19] of bytebeginrandomize;for i:=0 to 19 do begina[i]:=random(1)*255;writeln (a[i]);if a[i]=0 then zu:=zu+1;end;writeln("нулевых тут", zu);readln;