Дан одномерный массив.Найти Количество Положительных чисел данного массива — Pascal(Паскаль)

var
 a:array[1..10] of integer;
 i,j,count,tmp:integer;
begin
 for i:= 1 to 10 do begin
   a[i]:= random(20);
   write(a[i],' ');
   if a[i] > 0 then
     inc(count);
 end;
 writeln;
 writeln;
 for i:= 1 to 9 do
 for j:= i+1 to 10 do
   if a[i] < a[j] then begin
     tmp:= a[i];
     a[i]:= a[j];
     a[j]:= tmp;
   end;
 for i:= 1 to 10 do
   write(a[i],' ');
 writeln('kol-vo polozhitelnih elemenov = ',count);
end