Дан массив из н чисел, найти сумму элементов этого массива произведение и наибольший элемент и наименьший элемент этого массива

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] < min then

           min:=arr[i];

       if arr[i] > max then

           max:=arr[i];

   end;

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

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

   writeln('Max: ', max);

   writeln('Min: ', min);

end.