Определить количество чисел больших нуля среди: a1 a2 … a10

Program prog;
uses crt;

var a: array [1..10] of integer;
    i,k: integer;
    
begin
clrscr;
randomize;
k:=0;

for i:=1 to 10 do
    begin
    a[i]:=random(100)-50;
    writeln ('a[',i,'] = ', a[i]);
    if a[i]>0 then inc(k);
    end;
writeln;
write('K = ', k);
end.