Бросить программку заполнения массива из 100 чисел случайными значениями из диапозона

var
   arr : array [1..100] of integer; // объявляем массив.
   x, y, i : integer; // объявляем переменные целочисленного типа.
Begin
   for i:= 1 to 100 do // начало цикла.
     begin
         arr[i] := random(-20,20); // заполняем элемент массива с индексом i случайным числом.
         if (arr[i] gt; 0) then x:= x + 1; // считаем положительные элементы.
         if (arr[i] lt; 0) then y:= y + 1; // считаем отрицательные элементы.
     end;
  writeln(Количество положительных элементов в массиве:, x); // вывод строки на экран.
  writeln(Количество отрицательных элементов в массиве:, y); // вывод строки на экран.
End.