cрочно ,нужно написать программы. 1.дан массив содержащий 15 элементов ,найти сумму максимального и минимального элементов. 2.найти среднее арифметическое элементов массива.

Var
  arr: array[1..15] of integer;
  min, max, i, sum: integer;

begin
  min := MaxInt;
  max := -(MaxInt);
  for i := 1 to 15 do
  begin
    readln(arr[i]);
    if arr[i] > max then max := arr[i];
    if arr[i] < min then min := arr[i];
    sum := sum + arr[i];
  end;
  writeln('Сумма максимального и минимального элементов = ', max + min);
  writeln('Среднее арифметическое элементов массива = ', sum/15);
end.