Вычислить произведение максимального элемента первого массива на минимальный элемент второго массива - Pascal ABC

Формулировка задачи:

помогите никак не могу сделать... нахожу максимальный и минимальные значения дальше в ступор вхожу что делать помогите чайнику.... Даны два массива целых чисел. Вычислить произведение максимального элемента первого массива на минимальный элемент второго массива. Удалить максимальный элемент из первого массива и добавить его во второй массив после минимального.

                    Листинг программы
                
 
                            
                        
uses crt;
var
  ar: array [1..10] of integer; {Объявляем массив из 10 элементов}
   br: array [1..10] of integer; {Объявляем массив из 10 элементов}
  min, max: integer; {переменные для хранения минимума и максимума}
  z: integer; {счётчик цикла}
  x: integer; {для промежуточного хранения чисел элементов массива}
begin
 randomize; {включаем генератор случайных чисел}
  for z := 1 to 10 do {создаём цикл из 10 итераций}
  begin
 {Получаем случайные числа.}
    x:= random(600); 
    ar[z]:= x; {Перегружаем значения в массив}
     br[z]:= x;
    writeln(z, '= ', ar[z]);
     writeln(z, '= ', br[z]);{Выводим значения массива на экран (отладочная информация)}
  end;
{Присваиваем начальные значения минимуму и максимуму}
  min:= ar[1]; max:= ar[1]; 
  min:= br[1]; max:= br[1];
{Находим в цикле минимум и максимум}
  for z:= 2 to 10 do 
  begin 
    if min > ar[z] then min:= ar[z]; 
    if max < ar[z] then max:= ar[z]; 
  end; 
{Выводим результат на экран}
  Writeln('Minimum = ', min);
   Writeln('Maximum = ', max);
  readln;
end.

вот то что смог... может я вообще не правильно все делаю

Решение задачи: «Вычислить произведение максимального элемента первого массива на минимальный элемент второго массива»

Листинг программы

uses crt;
const n=10;
var a: array [1..n] of integer;
    b: array [1..n+1] of integer;
    imin, imax: integer; {переменные для хранения индексов минимума и максимума}
    m:integer;{размеры новых массивов}
    z,x: integer; {счётчики циклов}
    y:integer;{буфер для хранения значений}
begin
 
randomize; {включаем генератор случайных чисел}
writeln('Массив А');
imax:=1;
for z := 1 to 10 do
 begin
  a[z]:=random(100);
  if a[z]>a[imax] then imax:=z;
  write(a[z]:4);
 end;
writeln;
writeln('Максимальный элеиент a[',imax,']=',a[imax]);
writeln('Массив B');
imin:=1;
for z := 1 to 10 do
 begin
  b[z]:=random(100);
  if b[z]<b[imin] then imin:=z;
  write(b[z]:4);
 end;
writeln;
writeln('Минимальный элеиент b[',imin,']=',b[imin]);
writeln('Их произведение=',a[imax]*b[imin]);
y:=a[imax];
m:=n-1;
if imax<n then
for z:=imax to n-1 do
a[z]:=a[z+1];
writeln('Измененный массив А');
for z:=1 to m do
write(a[z]:4);
writeln;
m:=n+1;
if imin=n then b[m]:=y
else
for z:=m downto imin+2 do
b[z]:=b[z-1];
b[imin+1]:=y;
writeln('Измененный массив B');
for z:=1 to m do
write(b[z]:4);
end.

Объяснение кода листинга программы

Создаются два массива: a и b.
Задается переменная n, которая определяет количество элементов в обоих массивах.
В цикле for заполняются первые 10 элементов массива a случайными числами от 0 до 99.
Находится максимальный элемент в массиве a и сохраняется в переменной imax.
Выводится значение максимального элемента.
Заполняются первые 10 элементов массива b случайными числами от 0 до 99.
Находится минимальный элемент в массиве b и сохраняется в переменной imin.
Выводится значение минимального элемента.
Вычисляется произведение максимального и минимального элементов.
Сохраняется значение произведения в переменной y.
Создается новый массив a с размерами (n-1) x n.
В цикле for обновляется значение каждого элемента массива a путем копирования соответствующего элемента из предыдущего массива.
Создается новый массив b с размерами (n+1) x n+1.
В цикле for обновляется значение каждого элемента массива b путем копирования соответствующего элемента из предыдущего массива.
Последний элемент массива b присваивается значению y.
Выводится измененный массив a.
Выводится измененный массив b.