Решите, пожалуйстаЗаполнить массив из 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]lt;-7)      and (a[i]gt;-20) then
       k := k +1; 
         writeln (k);
      end.