Нулевые элементы это в смысле ячейка массива равна нулю?

Если да, то
Program lol;
uses crt;
var a:array [1..5];
i,temp:integer;
begin
clrscr;
Randomize;
For i:=1 to 5 do
A[i]:=random(10);
Writeln ('Indexi nulevih elementov: ');
If a[i]:=0 then begin
Temp:=Temp+1;
Writeln (i):3;
end
Writeln ('Nulevih elementov : ',Temp);
end.