Дан массив целых чисел a1,…,an. Найти произведение максимального и минимального элементов — Pascal(Паскаль)

program one;
uses crt;
const n=10;
var
A:array [1..n] of integer;
i,j,max,min:integer;
flag:boolean;
 
BEGIN
 
clrscr;
randomize;
 
 
for i:=1 to n do
begin
a[i]:=random (50);
write (a[i], ' ');
end;
 
 
 
max:=a[1];
for i:=1 to n do
if a[i]>max
then max:=a[i];
 
 
writeln;
write ('maximalnii el-t massiva:', max);
 
 
min:=a[1];
for i:=1 to n do
if a[i]<min
then min:=a[i];
 
 
writeln;
write ('minimalnii el-t massiva:', min);
 
writeln('Произведение мин и макс равно ',max*min);
 
readkey;
END.

const n=10;
var a:array[1..n]of integer;
    i,imx,imn:integer;
begin
randomize;
for i:=1 to n do
begin
    a[i]:=random(11)-5;
    write(a[i]:3);
end;
writeln;
imx:=1; imn:=1;
for i:=2 to n do
begin
    if a[i]>a[imx] then imx:=i;
    if a[i]<a[imn] then imn:=i;
end;
writeln('Максимальный= ',a[imx],' Минимальный= ',a[imn]);
writeln('Произведение= ',a[imx]*a[imn]);
readln;
end.

const n=3;
var a:array[1..n,1..n]of integer;
    i,j,max,min:integer;
begin
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
max:=a[1,1];
for i:=1 to n do
for j:=2 to n do
if a[i,j]>max then max:=a[i,j];
writeln('Максимальный элемент: ',max);
min:=a[1,1];
for i:=1 to n do
for j:=2 to n do
if a[i,j]<min then min:=a[i,j];
writeln('Минимальный элемент: ',min);
writeln(max*min);
end.