Записать программу: дан массив а(10), заполненный датчиком случайных чисел. найти сумму минимального и максимального элементов массива

Vara: array [1..10] of integer;
i,max,min:integer;
begin
min:=10; max:=0;
randomize;
for i:=1 to 10 do
a[i]:=random (10);
for i:=1 to 10 do
if a[i]>max then max:=a[i]
else if a[i]< min then min:=a[i];
i:=max+min;
writeln(i);
end.