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

Program ask_1;
const k = -20;
         b = 20;
type MyArray = Array[1..16]of integer;
var A:MyArray;
     i:integer; //
begin
Randomize;
for i:=1 to 16 do begin
A[i] := random(b-k+1);
if (A[i] = 0) then write(i);
end;
end.
Так как в задании не сказано вывести данный массив, то в этой программе выводятся элементы с 0 значением.