Подсчитать сумму элементов,расположенных между максимальными и минимальными элементами. Если максимальный элемент встречается позже минимального,то выдать сообщение об этом — Pascal(Паскаль)

Uses
 CRT;
var
i,n,imax,imin,sum:integer;
a:array[1..20] of integer;
begin
write('-: ');
readln(n);
randomize;
imax:=1;
imin:=1;
for i:=1 to n do
begin
a[i]:=random(10)-3;
write(a[i]:3);
if a[i]>a[imax] then
imax:=i
else  if a[i]<a[imin] then
imin:=i;
end;
writeln;
writeln(a[imin],' ',a[imax]);
if imax-imin=0 then writeln('MAX  позже MIN')
else if (imax-imin<>0) and (imax<imin) then
begin
sum:=0;
for i:=imax+1 to imin-1  do
begin
sum:=sum+a[i];
end;
writeln('SUM:=',sum);
end
else if (imax>imin) then
writeln('MAX больше MIN');
end.