Определить количество чисел больших 0 среди: а1, (паскаль)

Const n=10;
var a:array [1..n] of integer;
k,i:integer;
begin
writeln('vvedite massiv');
for i:= 1 to n do 
readln(a[i]);
k:=0;
for i := 1 to n do 
if a[i]>0 then 
 inc(k);

writeln('kolicestwo =',k);

readln;
end.