Файлы вещественного типа

uses
  crt;
type
  RealFile = file of real;  
procedure CreateFile(N : byte);
var 
  i : byte;
  f : RealFile;
begin
  assign(f,'FileNumb.dat');
  rewrite(f);
  randomize;
  for i := 1 to n do write(f,random(51)-25+random);
  close(f);
end;  
procedure PrintFile();
var a : real;
    f : RealFile;
begin
  assign(f,'FileNumb.dat');
  reset(f);
  while not eof(f) do begin
    read(f,a);
    write(a:7:2);
  end;
  writeln;
  close(f);
end;
procedure DelMin();
var a, min, max : real;
    i, i1, i2 : byte;
    f : RealFile;
begin
  assign(f,'FileNumb.dat');
  reset(f);
  read(f,min);
  max := min;
  i1 := 1; i2 := 1;
  reset(f);
  for i := 1 to filesize(f) do begin
    read(f,a);
    if a<min then begin
      min := a;
      i1 := i;
    end; 
    if a>max then begin
      max := a;
      i2 := i;
    end;    
  end; 
  for i := filesize(f) downto i2 do begin
    seek(f,i-1);
    read(f,a);
    write(f,a);
  end;  
  seek(f,i2); write(f,min);
  for i := i1+1 to filesize(f) do begin
    seek(f,i-1);
    read(f,a);
    seek(f,i-2);
    write(f,a);
  end;
  Truncate(f);
  close(f);
end;
var
  n : byte;
begin
  clrscr;
  write('Количество чисел в файле : '); readln(n);
  CreateFile(n);
  PrintFile();
  DelMin();
  PrintFile();
  readln;
end.