Создать файл, компоненты(<=9)которого являются вещественными числами.После создания файла значение максимальной компоненты файла заменить числом 100.Исходный и результирующий файлы вывести на экран - Pascal(Паскаль)

uses crt;
const nmax=9;
var f:file of real;
    a,b,max,min,x:real;
    n,i,imn,imx:integer;
begin
clrscr;
assign(f,'fileF');
rewrite(f);
repeat
write('Введите размер файла от 1 до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите в файл действительные числа:');
for i:=1 to n do
 begin
  write('a=');
  readln(a);
  write(f,a);
 end;;
clrscr;
writeln('Содержание исходного файла:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a:0:2,' ');
 end;
writeln;
close(f);
reset(f);
read(f,max);
imx:=0;
for i:=1 to filesize(f)-1 do
 begin
  seek(f,i);
  read(f,a);
  if a>max then
   begin
    max:=a;
    imx:=i;
   end;
 end;
close(f);
writeln;
writeln('Максимальный=',max:0:2,' его индекс=',imx);
writeln;
reset(f);
seek(f,imx);
a:=100;
write(f,a);
close(f);
writeln('Содержание файла после замены максимального элемента:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a:0:2,' ');
 end;
close(f);
readln
end.