дан массив В (26). элементы заданы случайным образом в диапазоне от -6 до 14. найти количество отрицательных элементов

var b:array[1..26] of integer;
i,kol:integer;
begin
randomize;
kol:=0;
for i:=1 to 26 do begin
b[ i ]:=random(20)-6;
writeln('b[',i,']=',b[ i]);
if b[ i ]<0 then kol:=kol+1;
end;
writeln('Колличество: ',kol);
end.