Оставить программу заполнения массива из 100 чисел случайными значениями из диапозона от -20 до 20. подсчитайте в этом

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] > 0) then x:= x + 1; // считаем положительные элементы.         if (arr[i] < 0) then y:= y + 1; // считаем отрицательные элементы.     end;  writeln(\'Количество положительных элементов в массиве:\', x); // вывод строки на экран.  writeln(\'Количество отрицательных элементов в массиве:\', y); // вывод строки на экран.End.