Типизированные файлы. Найти сумму компонент, стоящих между минимальной и максимальной.

program ABC;
var b,Buf,Imin,Imax,Max,Min,i,k,S:integer;
f:file of integer;
begin
assign(f,'f.dat');
writeLn('введите первую компоненту файла f ');
rewrite(f);
readLn(b);
i:=1;
while b<>10 do
begin
write(f,b);
inc(i);
writeLn('введите ',i,'-ую компоненту файла f');
readLn(b);
end;
reset(f);
writeLn('файл f до изменения:');
while not EOF(f) do
begin
read(f,b);
write(b:5);
end;
writeLn;
reset(f);
Imin:=0;
Imax:=0;
i:=0;
Min:=buf;
Max:=buf;
while not eof(f) do
begin
read(f,buf);
if buf>Max then
begin
Max:=buf;
Imax:=i;
end
else
begin
if buf<Min then
begin
Min:=buf;
Imin:=i;
end;
end;
i:=i+1;
end;
if abs(Imax-Imin)>1 then
begin
If Imax>Imin then
i:=Imin+1
else
begin
i:=Imax+1;
end;
seek(f,i);
k:=i;
S:=0;
While k<i+abs(Imax-Imin)-1 do
begin
read(f,buf);
S:=S+buf;
k:=k+1;
end;
seek(f,i);
k:=1;
While k<i+abs(Imax-Imin)-1 do
begin
write(f,S);
k:=k+1;
end;
end;
reset(f);
writeLn('файл f после изменения:');
while not EOF(f) do
begin
read(f,b);
write(b:5);
end;
writeLn;
close(f);
end.

program ABC;
uses crt;
var b,Buf,Imin,Imax,Max,Min,i,k1,k2,S:integer;
    f:file of integer;
begin
clrscr;
assign(f,'f.dat');
rewrite(f);
writeLn('введите 10 компонент в файл f ');
for i:=1 to 10 do
 begin
  readLn(b);
  write(f,b);
 end;
clrscr;
reset(f);
writeLn('файл f до изменения:');
read(f,min);{читаем первое число, оно пока мин и макс}
write(min:5);
max:=min;
imin:=0;
imax:=0;{их индекс=0}
for i:=1 to filesize(f)-1 do{читаем остальные}
 begin
  read(f,b);
  write(b:5);
  if b>max then
   begin
    max:=b;
    imax:=i;{индекс макс}
   end;
  if b<min then
   begin
    min:=b;
    imin:=i;{мин}
   end;
 end;
writeLn;
close(f);
reset(f);
if imin<imax then{уточням кто за кем}
 begin
  k1:=imin;
  k2:=imax;
 end
else
 begin
  k1:=imax;
  k2:=imin
 end;
s:=0;
for i:=k1+1 to k2-1 do{между индексами }
 begin
  seek(f,i);
  read(f,b);
  s:=s+b;{считаем сумму}
 end;
close(f);
writeln('Сумма=',s);
reset(f);
for i:=k1+1 to k2-1 do{между индексами}
 begin
  seek(f,i);
  write(f,s);{вставляем сумму}
 end;
close(f);
reset(f);
writeLn('файл f после изменения:');
while not EOF(f) do
 begin
  read(f,b);
  write(b:5);
 end;
readln;
close(f);
end.

write('Êîëè÷åñòâî êîìïîíåíò ôàéëîâ n=');
readln(n);
for i:=1 to n do