Написать программу которая определяет количество положительных элементов одномерного массива

var i, n: longint; a: array [1..10] of longint;

begin n := 0; randomize; for i := 1 to 10 do begin a[i] := random(100) - 50; write(a[i], \' \'); if a[i] > 0 then n := n + 1; end; writeln; write(\'Количество положительных членов данного одномерного массива равно \'); writeln(n, \'.\');end.