Вцелочисленном массиве a 20 случайных чисел из интервала от -10 до 15. подсчитать количество отрицательных чисел в этом массиве

Var i,n:integer;
a:array[1..20] of integer;
begin
 n:=0;
 for i:=1 to 20 do
  begin
   a[i]:=Random(25)-10;
   write(a[i]:2,' ');
  end;
   writeln;
 for i:=1 to 20 do
  begin
   If a[i]<0 then inc(n);
  end;
 Writeln('Kol: ',n);
readln
end.