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

Uses crt;
Var
  f1,f2: File of Real;
  s,x,max,min: Real;
  imax,imin,n,i: Integer;
BEGIN
Clrscr;
Randomize;
Write('Введите кол-во чисел: '); Readln(n);
Assign(f1,'input.dat'); Rewrite(f1);
For i:=1 to n do
begin
  x:=10*Random-3;
  Write(f1,x);
end;
Reset(f1);
Seek(f1,0);
Read(f1,x);
max:=x;
min:=x;
Writeln('Содержимое 1 файла:');
For i:=0 to Filesize(f1)-1 do
begin
  Seek(f1,i);
  Read(f1,x);
  If x>max Then
  begin
    max:=x;
    imax:=i;
  end;
  If x<min Then
  begin
    min:=x;
    imin:=i;
  end;
  Write(x:7:2);
end;
Writeln;
Assign(f2,'output.dat'); Rewrite(f2);
If imax>imin Then
begin
  For i:=imin+1 to imax-1 do
  begin
    Seek(f1,i);
    Read(f1,x);
    s:=s+x;
    Write(f2,x);
  end;
end
Else
begin
  For i:=imax+1 to imin-1 do
  begin
    Seek(f1,i);
    Read(f1,x);
    s:=s+x;
    Write(f2,x);
  end;
end;
Reset(f2);
Writeln;
Writeln('Содержимое 2 файла:');
While not Eof(f2) do
begin
  Read(f2,x);
  Write(x:7:2);
end;
Writeln;
Writeln('Сумма = ',s:5:2);
Close(f1);
Close(f2);
Readln
END.