Типизированный файл вещественных чисел

uses crt;
var f:file of real;
    a,b,x:real;
    n,i,j,iv:integer;
begin
clrscr;
randomize;
assign(f,'file');
rewrite(f);
write('Сколько чисел ввести n=');
readln(n);
for i:=1 to n do
 begin
  a:=10*random;
  write(f,a);
 end;
writeln('Содержание исходного файла:');
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a:0:2,' ');
 end;
close(f);
writeln;
{сортировка файла по возрастанию}
reset(f);
for i:=0 to filesize(f)-2 do
for j:=i+1 to filesize(f)-1 do
  begin
    seek(f,i);
    read(f,a);
    seek(f,j);
    read(f,b);
    if a>b then
      begin
       x:=a;
       a:=b;
       b:=x;
       seek(f,i);
       write(f,a);
       seek(f,j);
       write(f,b);
      end;
   end;
close(f);
writeln('Содержание отсортированного файла:');
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a:0:2,' ');
 end;
close(f);
writeln;
{вставка элемента на место}
write('Введите число для вставки в файл x=');
readln(x);
reset(f);
seek(f,filesize(f)-1);
read(f,a);
if x>=a then
 begin
  seek(f,filesize(f));
  write(f,x);
  close(f);
 end
else
 begin
  i:=0;iv:=-1;
  while(i<=filesize(f)-2)and(iv=-1) do
   begin
    seek(f,i);
    read(f,a);
    if a>x then iv:=i
    else i:=i+1;
   end;
  for j:=filesize(f) downto iv+1 do
   begin
    seek(f,j-1);
    read(f,b);
    seek(f,j);
    write(f,b);
   end;
  seek(f,iv);
  write(f,x);
  close(f);
 end;
writeln('Содержание файла после вставки:');
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a:0:2,' ');
 end;
close(f);
readln
end.