Сконструировать массив из 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] gt; 0) then sum1 := sum1 + arr[i]; // считаем сумму положительных частей.
        end;
   writeln(Сумма положительных чисел массива одинакова:, sum1);    // вывод строки на экран.
End.