Заполнить массив из 10 целых чисел с клавиатуры положительными и отрицательными числами. Найти сумму положительных элементов массива.(паскаль)

Предыдущий
вопрос Следующий
вопрос

Program PositiveSum;

va
arr: array [1..10] of integer
i, positiveSum: integer;

begi
positiveSum := 0;

writeln('Введите 10 целых чисел:');

for i := 1 to 10 d
begi
write('Введите число ', i, ': ')
readln(arr[i]);

end;

writeln('Сумма положительных элементов массива: ', positiveSum)
end.