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

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.