Массив из 20 целых чисел. Заполнить случайными числами от -50 до

var
  i, n: integer;                              // объявляем переменные целочисленного типа.
  arr: array [1..20] of integer;       // объявляем массив.
  s : string;                                  // объявляем переменную строкового типа.
begin
  for i := 1 to 20 do                     // начало цикла.
     begin
       arr[i] := random(-50, 50);        // заполняем элемент массива числом из спектра -50; 50.
       s := s + inttostr (arr[i])+ ;     // записываем массив в одну строчку.
       if (arr[i] gt; 0) then n := n + arr[i]; // считаем сумму положительных чисел.
     end;
 writeln (Начальный массив: , s);                            // вывод строки на экран.
 writeln(Сумма положительных чисел одинакова: , n); // вывод строчки на экран.
end.