Дан числовой массив А, состоящий из п натуральных чисел. Найти произведение минимального и максимального элементов.( помогите срочно)

const
N = 10;
var
a: array[1..N] of integer;
i, min, max: integer;
begin
min := 30;
for i := 1 to N do begin
a[i] := random(30);
if(a[i] < min) then min := a[i];
if(a[i] > max) then max := a[i];
write(a[i], ' ');
end;
writeln('Произведение: ', min * max);
end.