Составить программу которая в массиве из 10 элементов находят произведение минимума и максимума значимых элементов

Type

mas = array [1 ... 10] of integer;

var

x: mas;

min, max: integer;

i: integer;

begin

for i : = 1 to 10 do

readln (x[i]) ;

min : = x[1];

max : = x[1];

for i : = 2 to 10 do begin

if x[i] < min then

min : = x[i];

if x[i] > max then

max : = x[i]

end;

writeln (max * min) ;

end.