Такая задача. Найти количество положительных чисел в исходном наборе

Uses crt; var a: array [1… 30] of integer; i,k: integer; beginwrite ('Введи количество чисел набора: '); readln (i); writeln ('Набор чисел: '); for i: =1 to i dobegin a[i]: =random (99) -50; write (a[i],'); if a[i]>0 then k: =k+1; end; writeln; writeln ('Среди них ',k,' положительных.'); end.