Синформатикой найти минимальный и максимальный элементы из данных массива размера n , вывести их в произведение. (не понимаю , как делать )

Вот решение на бейсике.

Var a:array[1..100] of integer; 
i,n,min,max:integer; 
begin 
writeln('Введите количество элементо массива'); 
read(n); 
writeln('Введите элементы массива'); 
for i:=1 to n do begin 
read(a[i]); 
end; 
min:=a[1]; 
max:=a[1]; 
for i:=1 to n do begin 
if a[i]>max then max:=a[i]; 
if a[i]<min then min:=a[i]; 
end; 
writeln('Произведение min и max = ', min*max); 
end.