Сформулировать массив из n случайных чисел на промежутке [-60;60].найти сумму чисел больших нуля

var   i, sum1, n : integer;      // объявляем переменные целочисленного типа.   arr : array of integer;    // объявляем массив.Begin     writeln(\'Введите размерность массива:\');        // вывод строки на экран.    read(n);                                                        // считываем размерность массива.    setlength(arr,n);                                           // выделяем память под массив.       for i:= 0 to (n-1) do                                  // начало цикла.        begin           arr[i] := random(-60, 60); // заполняем элемент массива числом из диапазона -60; 60.           if (arr[i] > 0) then sum1 := sum1 + arr[i]; // считаем сумму положительных элементов.        end;   writeln(\'Сумма положительных чисел массива равна:\', sum1);    // вывод строки на экран.End.