Паскаль помогите пжл!!!!!!     Дан одномерный массив, состоящий ...

Женя

Паскаль помогите пжл!!!!!!
 
 
Дан одномерный массив, состоящий из  вещественных элементов. Найти произведение элементов массива, расположенных между максимальным и минимальным элементами.
 
 
 
Дан одномерный массив, состоящий из  вещественных элементов. Найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами
 
 
ну или исправьте мое пжл
 
program fgf;var mas:array[1..100] of real;max,min:real;i,n,c,b:shortint;p:real;f1,g:text;begin;assign (f1, 'input.txt');reset (f1);readln (f1, n);
for i:=1 to N do read (mas[i]);max:=mas[i];for i:=2 to N do beginif mas[i]>max then beginmax:=mas[i];c:=i;end;end;min:=mas[1];for i:=2 to N do beginif mas[i]<min then beginmax:=mas[i];b:=i;end;end;close(f1);assign (g, 'output.txt');rewrite (g);p:=1;if b<c then I:=b+1 and c-1
else for I:=c+1 to b-1 do p:=p*mas[i];
if (n<3) or (b+1=c) or (c+1=b) then writeln(g,'0.00') else write(p:3:3) ;
close (g);end.