CРОЧНО ПОЖАЛУЙСТА,Необходимо НАПИСАТЬ Программки.1.Дан массив содержащий 15 частей ,отыскать сумму

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] gt; max then max := arr[i];
    if arr[i] lt; min then min := arr[i];
    sum := sum + arr[i];
  end;
  writeln('Сумма максимального и минимального элементов = ', max + min);
  writeln('Среднее арифметическое элементов массива = ', sum/15);
end.