Заменить суммой все элементы компонент файла между максимумом и минимумом

uses crt;
var f:file of integer;
    n,a,i,mn,imn,mx,imx,s:integer;
begin
randomize;
assign(f,'fileF');
rewrite(f);
repeat
write('Сколько чисел записать в файл F n>3 n=');
readln(n);
until n>3;
for i:=1 to n do
 begin
  a:=random(50);
  write(f,a);
 end;
writeln('Содержание исходного файла:');
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  seek(f,i);
  read(f,a);
  if i=0 then
   begin
    mn:=a;
    imn:=a;
    mx:=a;
    imx:=0
   end
  else if a<mn then
   begin
    mn:=a;
    imn:=i
   end
  else if a>mx then
   begin
    mx:=a;
    imx:=i
   end;
  write(a,' ');
 end;
writeln;
writeln('Минимальный элемент=',mn,' его номер=',imn+1);
writeln('Максимальный элемент=',mx,' его номер=',imx+1);
if abs(imn-imx)<3 then
 begin
  writeln('Между минимальным и максимальным элементами меньше 2 элементов');
  writeln('Преобразование файла невозможно');
  readln;
  exit
 end;
if imx<imn then
 begin
  s:=imn;
  imn:=imx;
  imx:=s;
 end;
reset(f);
s:=0;
for i:=imn+1 to imx-1 do
 begin
  seek(f,i);
  read(f,a);
  s:=s+a;
 end;
writeln('Сумма между минимальным и максимальным элементами=',s);
reset(f);
for i:=imn+1 to imx-1 do
 begin
  seek(f,i);
  write(f,s);
 end;
writeln('Содержание полученного файла:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
 end;
close(f);
end.