Решите, пожалуйста Заполнить массив из 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.