♥придумать на подсчет элементов по определенному признаку введенных с клавиатуры. (в паскале abc)

Var a,b,i,k:integer
begin
 readln(a);
 for i:=1 to a do begin 
 readln(b);
 if b>0 then  
 k:=k+1;
end;
writeln('кол-во положительных чисел = ',k);
end.
В этой программе считается сумма положительных чисел среди введенных