В массиве случайных чисел посчитать количество положительных элементов на языке паскаль

program array1;uses crt;var kol,i,N:integer; a:array [1..100] of integer;beginrandomize;write ('Vvedite kolichestvo elementov');read (N);kol:=0;for i:=1 to N dobegina[i]=random (100);if a[i]>0 then kol:=kol+1;end;write ('Kolichestvo elementov =,' kol);end.