Найдите сумму чисел, расположенных между максимальным и минимальным элементами массива

uses crt;
const n=20;
var a:array[1..n] of integer;
    i,imax,imin:byte;
    max,min,sum:integer;
begin
clrscr;
randomize;
writeln('Massiv:');
for i:=1 to n do
  begin
    a[i]:=random(20);
    write(a[i],' ');
  end;
writeln;
max:=a[1];min:=a[1];imax:=1;imin:=1;
for i:=1 to n do
if a[i]>max then
  begin
    max:=a[i];
    imax:=i;
  end
else if a[i]<min then
  begin
    min:=a[i];
    imin:=i;
  end;
writeln('Imax=',imax,'  Imin=',imin);
if imax<imin then
  begin
   sum:=0;
   for i:=imax+1 to imin-1 do
   sum:=sum+a[i];
  end
else if imax>imin then
  begin
   sum:=0;
   for i:=imin+1 to imax-1 do
   sum:=sum+a[i];
  end;
writeln('Summa=',sum);
readln
end.

uses crt;
const n=10;
var a,b,c:array[1..n] of integer;
    i:byte;
begin
clrscr;
randomize;
writeln('Massiv A:');
for i:=1 to n do
  begin
    a[i]:=random(20);
    write(a[i]:3);
  end;
writeln;
writeln;
writeln('Massiv B:');
for i:=1 to n do
  begin
    b[i]:=random(20);
    write(b[i]:3);
  end;
writeln;
writeln;
writeln('Massiv C:');
for i:=1 to n do
  begin
    c[i]:=a[i]+b[i];
    write(c[i]:3);
  end;
readln
end.

uses crt;
const n=10;
      m=15;
var a:array[1..n,1..m] of integer;
    i,j,k,i2:byte;
begin
clrscr;
randomize;
writeln('Massiv A:');
for i:=1 to n do
  begin
   for j:=1 to m do
     begin
      a[i,j]:=random(10)-2;
      write(a[i,j]:3);
    end;
   writeln;
 end;
k:=0;
for i:=1 to n do
  begin
   i2:=0;
   for j:=1 to m do
   if a[i,j]<0 then i2:=i2+1;
   if i2=2 then
     begin
       k:=1;
       writeln('Stroka ',i);
     end;
   end;
if k=0 then write('Takih strok net!');
readln
end.

uses crt;
const n=12;
var a:array[1..n,1..n] of integer;
    b:array[1..n] of integer;
    i,j:byte;
    max:integer;
begin
clrscr;
randomize;
writeln('Massiv A:');
for i:=1 to n do
  begin
   for j:=1 to n do
     begin
      a[i,j]:=random(20);
      write(a[i,j]:3);
    end;
   writeln;
 end;
for j:=1 to n do
  begin
   if j mod 3=0 then
     begin
       max:=a[1,j];
       for i:=1 to n do
       if a[i,j]>max then max:=a[i,j];
     end;
   b[j div 3]:=max;
  end;
writeln('Massiv:');
for i:=1 to n div 3 do
write(b[i],' ');
readln
end.
readln
end.