Дан массив состоящий из 10 целых чисел,заданных случайным образом из интервала

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