Дан массив из Н чисел, отыскать сумму частей этого массива творение

const h = 15;

var arr: array [1..h] of integer;

i, sum, prod, min, max: integer;

begin

   writeln('Начальный массив: ');

   for i:=1 to h do

   begin

       arr[i]:=random(-100,100);

       write(arr[i], ' ');

   end;

   writeln();

   sum:=arr[1];

   prod:=arr[1];

   min:=arr[1];

   max:=arr[1];

   for i:=2 to h do

   begin

       sum += arr[i];

       prod *= arr[i];

       if arr[i] lt; min then

           min:=arr[i];

       if arr[i] gt; max then

           max:=arr[i];

   end;

   writeln('Сумма: ', sum);

   writeln('Произведение: ', prod);

   writeln('Max: ', max);

   writeln('Min: ', min);

end.