процедуры с типизированными файлами Опции

[18192123]

я пытаюсь создать типизированный файл вещественных чисел и вывести его содержимое на экран, но получаю ошибку string expression expected ( эта строка выделена в коде).

Объясните, в чем дело...

uses crt;
const
n = 10;
procedure save_file ( var Filename : real );
var
f : file of real;
a : real;
i : byte;
begin
assign (f, filename);rewrite (f);
for i := 1 to n do
begin
     read (a);
     write (f, a);
end;
close (f);
end;
procedure print_file( filename :  real );
var
f : file of real;
i : byte;
a : real;
begin
assign (f, filename);
reset (f);
while i <= n do
begin
     read (f, a);
     writeln (a);
end;
close (f);
end;
BEGIN
clrscr;
save_file ( 'file1.bin' );
print_file ( 'file1.bin' );
readkey;
end.