Найти сумму компонент, стоящих между минимальной и максимальной

uses crt;
var f,h: file of integer;
    imax,imin,max,min,i,c,nz,kz,sum: integer;
    
begin
assign(f,'D:\in.dta');
assign(h,'D:\our.dta');
rewrite(f);
for i:=1 to random(6)+10 do
    begin
    c:=random(199)-99;
    write(f,c);
    end;
writeln('Файл заполнен случайным количеством случайных чисел');
writeln('Содержимое файла f');
reset(f);
i:=-1;
while not eof(f) do
      begin
      inc(i);
      read(f,c);
      write(c:5);
      if i=0 then
         begin
         max:=c; min:=c; imin:=i; imax:=i;
         end else
             begin
             if c>max then
                begin
                max:=c; imax:=i;
                end;
             if c<min then
                begin
                min:=c; imin:=i;
                end;
             end;
      end;
writeln;
if imin<imax then
   begin
   nz:=imin+1; kz:=imax-1;
   end else
       begin
       nz:=imax+1; kz:=imin-1;
       end;
i:=nz;
while i<=kz do
      begin
      seek(f,i);
      read(f,c);
      inc(sum,c);
      inc(i);
      end;
rewrite(h);
write(h,min);
write(h,max);
write(h,sum);
reset(h);
writeln('Содержимое файла h');
while not (eof(h)) do
      begin
      read(h,c);
      writeln(c);
      end;
close(f);
close(h);
end.