Помогите составить алгоритм
На вход подается одномерный массив из 10 элементов, необходимо узнать наибольший элемент массива и наименьший элемент массива, после чего их сложить

1.const n=10;var a:array[1..n] of integer;max,min,i:integer;beginRandomize;for i:=1 to n do begin a[i]:=random(51); write(a[i],' '); end;writeln;max:=a[1]; min:=a[1];for i:=2 to n do begin if a[i]>max then max:=a[i]; if a[i]<min then min:=a[i]; end;writeln('max = ',max,'  min = ',min);writeln(max,' + ',min,' = ',max+min);end.Пример:42 24 9 46 9 47 24 24 29 39 max = 47  min = 947 + 9 = 562.begin  var a:=ReadArrReal('Вводите массив:',10);  Writeln('Max = ',a.Max);  Writeln('Min = ',a.Min);  Writeln('Max+Min = ',a.Max+a.Min);end.Пример:Вводите массив: 15 23 85 46 70 38 94 43 51 76Max = 94Min = 15Max+Min = 109