Составьте программу вычисления в массиве произведения положительных элементов - Free Pascal

program pr;
 
var
  i, n, p: integer;
  a: array [1..100] of integer;
 
begin
  writeln('Введите размер массива');
  readln(n);
  p := 1;
  for i := 1 to n do
  begin
    a[i] := -10+random(21);           // диапазон заполнения ставь любой (здесь от -10 до 10)
    write(a[i]:3);
    if (a[i]  > 0) then
      p := p * a[i];
  end;
  writeln;
  writeln('Произведение  положительных  элементов массива: ', p);
end.