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

program zz1;
var i,max,min,sum:integer;
mas:array[1..10] of integer;
begin
for i:=1 to 10 do //наполняем массив случайным образом числами от 0 до 20
mas[i]:=random(21);
for i:=1 to 10 do //выводим числа из массива на экран
write(mas[i], );
max:=0;min:=20; //задаем исходные значения для наибольшего и меньшего частей массива
for i:=1 to 10 do
if mas[i]gt;max then max:=mas[i]; //обретаем наивеличайший элемент
for i:=1 to 10 do
if mas[i]lt;min then min:=mas[i]; //обретаем меньший элемент
sum:=max+min; //обретаем их сумму
write(sum=,sum); //выводим ответ на экран
end.