Преобразовать типизированный файл

uses crt;
var f:file of integer;
    i,a,mx,mn,imx,imn,k1,k2,s:integer;
begin
randomize;
assign(f,'file');
rewrite(f);
for i:=1 to 20 do
 begin
  a:=1+random(20);
  write(f,a);
 end;
writeln('Исходный файл');
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a:4);
  if i=0 then
   begin
    mx:=a;
    imx:=0;
    mn:=a;
    imn:=0;
   end
  else if a>mx then
   begin
    mx:=a;
    imx:=i
   end
  else if a<mn then
   begin
    mn:=a;
    imn:=i
   end
 end;
writeln;
writeln('Максимальный элемент=',mx,' его номер=',imx+1);
writeln('Минимальный  элемент=',mn,' его номер=',imn+1);
if abs(imn-imx)=1 then s:=0
else
 begin
  if imn<imx then
   begin
    k1:=imn+1;
    k2:=imx-1;
   end
  else if imx>imn then
   begin
    k1:=imx+1;
    k2:=imn-1;
   end;
  reset(f);
  s:=0;
  for i:=k1 to k2 do
   begin
    seek(f,i);
    read(f,a);
    s:=s+a;
   end;
 end;
writeln('Сумма элементов между минимальным и максимальным=',s);
reset(f);
seek(f,0);
write(f,s);
seek(f,filesize(f)-1);
write(f,s);
writeln('Измененный файл');
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a:4);
 end;
close(f);
end.