В двоичном файле вещественных чисел типа float заменить все нули на максимальное положительное

uses crt;
const n=10;
var f:file;
    i:byte;
    a,mx:real;
begin
clrscr;
randomize;
assign(f,'file');
rewrite(f,6);{6 - 6 байт, тип real}
writeln('Введите в файл отрицательные, положительные вещественные числа и ноли:');
for i:=1 to n do
 begin
  write('a=');
  readln(a);
  blockwrite(f,a,1);
 end;
clrscr;
writeln('Содержание исходного файла F:');
reset(f,6);
mx:=0;
while not eof(f) do
 begin
  blockread(f,a,1);
  write(a:0:2,' ');
  if a>mx then mx:=a;
 end;
writeln;
if mx=0 then write('В файле нет положительных элементов')
else
 begin
  writeln('Максимальный положительный=',mx:0:2);
  for i:=0 to filesize(f)-1 do
   begin
    seek(f,i);
    blockread(f,a,1);
    if a=0 then
     begin
      a:=mx;
      seek(f,i);
      blockwrite(f,a,1);
     end;
   end;
  seek(f,0);
  writeln('Содержание измененного файла F:');
  while not eof(f) do
   begin
    blockread(f,a,1);
    write(a:0:2,' ');
   end;
 end;
close(f);
readln
end.