Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 0 до 10 и находит сумму минимального и максимального элементов массива. , нужно.

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