Посчитать в массиве из 10 чисел количество положительных элементов. pascal

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

program CountPositiveElements;

var
arr: array[1..10] of Integer;
i, countPositive: Integer;

begin
countPositive := 0;

// Заполнение массива случайными числами
Randomize;
for i := 1 to 10 do
begin
arr[i] := Random(21) - 10; // Генерация чисел от -10 до 10
Write(arr[i], ' ');

end;

Writeln;
Writeln('Number of positive elements: ', countPositive);

end.