задание про одномерный массив!

[GreenMan]

Задание:
Дан одномерный массив, состоящий из N вещественных элементов. Найти произведение элементов массива, расположенных между максимальным и минимальным элементами.
Формат входных данных:
В первой строке входного файла содержится число N (диапазон значений: от 1 до 100 включительно). Во второй строке даны N вещественных чисел через пробел. Гарантируется, что среди них только одно максимальное и одно минимальное.
Формат выходных данных:
Выведите в выходной файл искомое произведение с знаками после десятичной точки или , если между максимальным и минимальным элементом нет других элементов.

Примеры:
Вход
5
-3.12 -5.25 2.5 1.2 6
Выход
3.000
Вход
2
1.24 5.36
Выход
0.000
____________________________

var a:array[1..100] of real;
z,q,w,n,nomin,nomax,i:integer;
min,max,pr:real;
begin
  assign(input,'input.txt');
  assign(output,'output.txt');
  reset(input);
  rewrite(output);
  max:=a[1];
  min:=a[1];
  nomax:=1;
  nomin:=1;
  pr:=1;
  readln(n);
  for i:=1 to n do
    begin
      read(a[i]);
      if a[i]>max then
        begin
          max:=a[i];
          nomax:=i;
        end;
      if a[i]<min then
        begin
          min:=a[i];
          nomin:=i;
        end;
    end;
  if nomax>nomin
    then
    begin
      q:=nomin;
      w:=nomax;
    end
    else
    begin
      q:=nomax;
      w:=nomin;
    end;
  if (w-q)>1
    then
    begin
      for z:=q to w do
        begin
          read(a[q]);
          pr:=pr*a[q];
        end
    else
    write(0);
  close(input);
  close(output);
end.

_________________________________

Итак, сначала я читаю из файла количество чисел в массиве. Затем, под количество этих элементов создаю цикл, где каждое элемент массива сравниваю с максимальным или минимальным значением: если значение больше максимального, тогда я максимальному значению присваиваю это значение, а номеру максимального элемента - номер данного элемента. Почти так же с минимальным значением.
Мы узнали индекс максимального и минимального элементов. q - наименьший индекс по значению, w - максимальный. Если между этими элементами нет чисел, то мы пишем 0... А дальше у меня ступор... Как создать цикл, который будет читать элементы между q и w? Нужно каким-то образом вернуться в начало строки, чтобы заново начать читать. Как это сделать? Вот это место у меня неправильно:
for z:=q to w do
begin
read(a[q]);
pr:=pr*a[q];
end
Как его переделать? Заранее спасибо



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Niro]

for z:=q to w do
begin
read(a[q]);
pr:=pr*a[q];
end
Как его переделать? Заранее спасибо

Вот так

pr:=1;
for z:=q to w do
  pr:=pr*a[z];

[GreenMan]

Спасибоо... Я тормоз...