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

var
p,i:integer;
m:array[1..10] of integer;
begin
p:=1;

for i:=1 to 10 do
  begin
      m[i]:=10-random(10);
      write(' ',m[i]:3);
  end;
writeln();
for i:=1 to 10 do 
  p:=p*m[i];
if p>=0 then writeln('Среднее геометрическое - ',exp(1/10*ln(p)):0:4) 
         else writeln('Произведение не найдено');
end.