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

uses crt;
var f:file of integer;
    n,a,i,mn,mx,imn,imx,s,x:integer;
begin
randomize;
assign(f,'filef');
rewrite(f);
repeat
write('Ñêîëüêî ÷èñåë çàïèñàòü â ôàéë F n>1 n=');
read(n);
until n>1;
for i:=1 to n do
 begin
  a:=random(50)+1;
  write(f,a);
 end;
writeln('Ñîäåðæàíèå èñõîäíîãî ôàéëà:');
seek(f,0);
read(f,mn);
write(mn:4);
mx:=mn;
imn:=0;
imx:=0;
for i:=1 to filesize(f)-1 do
 begin
  read(f,a);
  write(a:4);
  if a<mn then
   begin
    mn:=a;
    imn:=i
   end
  else if a>mx then
   begin
    mx:=a;
    imx:=i
   end
 end;
writeln;
writeln('Ìèíèìàëüíûé=',mn,' èíäåêñ=',imn,' ìàêñèìàëüíûé=',mx,' èíäåêñ=',imx);
if abs(imn-imx)=1 then
 begin
  writeln('Ìåæäó ìèíèìàëüíûì è ìàêñèìàëüíûì íåò ýëåìåòîâ');
  write('Ñóììà=0, çàìåíû íåò');
  readln;
  exit
 end;
if imx<imn then
 begin
  x:=imx;
  imx:=imn;
  imn:=x
 end;
s:=0;
for i:=imn+1 to imx-1 do
 begin
  seek(f,i);
  read(f,a);
  s:=s+a
 end;
writeln('Ñóììà ìåæäó ìèíèìàëüíûì è ìàêñèìàëüíûì=',s);
writeln('Ôàéë ïîñëå çàìåíû ýëåèåíòîâ');
seek(f,0);
for i:=0 to filesize(f)-1 do
 begin
  seek(f,i);
  if (i<=imn)or(i>=imx) then
   begin
    read(f,a);
    write(a:4)
   end
  else
   begin
    write(f,s);
    seek(f,i);
    read(f,a);
    write(a:4);
   end
 end;
close(f);
end.