Решите, пожалуйста
Заполнить массив из 13 элементов случайными числами в интервале [-200;100] и найти количество отрицательных элементов массива меньше-семи и больше -двадцати.

 const     n = 13;      var   a : array [1..n] of integer;   i,k : integer;  begin   randomize;    for i := 1 to n do      a[i] := -200 + random(301);   k := 0;     for i := 1 to n do     if  (a[i]<-7)      and (a[i]>-20) then       k := k +1;          writeln (k);      end.