Объясните, в чем дело...
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.