Составьте программу которая формирует массив из 16-ти случайных целых чисел от -20 до 20 и находит элементы с нулевыми значениями

Program Massiv;
Const N:= 16;
Var A: array [1..N] of integer;
 i: integer ;
Begin 
Randomize;
For i:= 1 to N Do 
A[i] := -20 + Random(20);
For i:= 1 to N Do
If A[i]:=0 then Writeln (A[i]) ;
Readln;
End.