Составить программу которая в массиве из 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.