Pascal ABC . Фильтрация данных в массиве .

[lonis]

Ввести одномерный массив A , вывести его. Найти произведение элементов стоящих слева и справа от минимального элемента массива. Разделить на найденное произведение минимум и максимум. Изменённый массив вывести.Заранее спасибо .

[newerow1989]

var a:array[1..5] of integer;
    i,imin,imax,pr:integer;
begin
   Randomize;
   For i:=1 to 5 do
   begin
      a[i]:=Random(50);
      Write(a[i],'  ');
   end;
   Writeln;
   imin:=1;
   imax:=1;
   For i:=2 to 5 do
   begin
      If a[i]<a[imin] then
         imin:=i;
      If a[i]>a[imax] then
         imax:=i;
   end;
   Writeln(imin);
   Writeln(imax);
   pr:=1;
   For i:=1 to 5 do
      If i<>imin then
         pr:=pr*a[i];
   Writeln(pr);

Начало сделал, но фразу:

Разделить на найденное произведение минимум и максимум.

я не могу понять. Поэтому сразу пишу вывод измененного массива:

   For i:=1 to 5 do
      Write(a[i],'  ');
   Writeln;
   Readln;
end.