Определить количество положительных чисел среди заданных N чисел

Я не знаю через массив или как это писать, поэтому напишу простейший вариант program n_pologitelnih; uses crt; var i,n,k,a:integer; begin clrscr; write('Введи N=>> '); readln(n); for i:=1 to n do begin write('Введи число'); readln(a); if a>0 then k:=k+1; end; write('Положительных чисел из ',n,' введенных - ',k); readln; end.