Задать случайный массив на интервале [-2; 8].найти количество положительных чисел .нужна программа на pascalabc

const nn=10;
var
A: array [1..nn] of integer;
i,k:integer;
begin
  Randomize;
  k:=0;
  for i:= 1 to nn do
  begin
    A[i]:=random(10)-2;
    write (A[i],' ');
  end;
  for i:= 1 to nn do if (A[i]>0) then k:=k+1;
  writeln;
  writeln(k);
end.