Сумма компонент массива, между максимальной и минимальной компонентой.

type mas=array[1..100] of integer;
procedure summa(a:mas;n,i1,i2:integer;var s:integer);
var i,x:integer;
begin
s:=0;
if abs(i1-i2)>1 then
 begin
  if i2<i1 then
   begin
    x:=i1;
    i1:=i2;
    i2:=x;
   end;
  for i:=i1+1 to i2-1 do
  s:=s+a[i];
 end;
end;
function kol(a:mas;n,i1:integer):integer;
var i,k:integer;
begin
k:=0;
if i1>1 then
for i:=1 to i1-1 do
if a[i]>0 then inc(k);
kol:=k;
end;
var a:mas;
    n,i,imn,imx,s:integer;
begin
randomize;
repeat
write('Введите размер массива от 3 до 100 n=');
readln(n);
until n in[3..100];
writeln('Массив');
for i:=1 to n do
 begin
  a[i]:=-10+random(21);
  write(a[i]:4);
 end;
writeln;
imn:=1;
imx:=1;
for i:=2 to n do
if a[i]<a[imn] then imn:=i
else if a[i]>a[imx] then imx:=i;
writeln('Минимальный элемент=',a[imn],' индекс=',imn);
writeln('Максимальный элемент=',a[imx],' индекс=',imx);
summa(a,n,imn,imx,s);
writeln('Сумма элементов между минимальным и максимальным=',s);
writeln('Количество положительных до максимального=',kol(a,n,imx))
end.