Дан одномерный целочисленный массив состоящий из 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    if min>mass[i] then min:=mass[i];
  end;

  writeln(max: , max);
  writeln(min: , min);
  writeln(max + min = , max+min);
end.