Найти сумму всех положительных Частей в массиве A содержащим 12 частей

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