Язык Pascal. Программирование для начинающих

program masiv;
var m:array[1..16] of integer; i,k:integer;
begin
randomize;
for i:=1 to 16 do
begin
m[i]:=random(30);
if m[i]then k:=k+1;
write(m[i],' ');
end;
writeln;
write('Otvet ',k);
end.