дан одномерный целочисленный массив состоящий из 10 элементов составьте программу определения значемния суммы наибольшего и наименьшего элементов этого массива массив заполнить любым способом

Спасибо большое))

program Project1;var i, max, min:integer; mass:array [0..9] of integer;begin  randomize;  for i:=1 to 9 do mass[i]:=Random(100);  max:=0;  min:=100;  for i:=1 to 9 do begin    if max<mass[i] then max:=mass[i];    if min>mass[i] then min:=mass[i];  end;  writeln('max: ', max);  writeln('min: ', min);  writeln('max + min = ', max+min);end.