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

[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.

[klem4]

procedure save_file ( Filename : string );

procedure print_file( filename : string );

[18192123]

procedure save_file ( Filename : string );

procedure print_file( filename : string );

теперь компилируется, но программа создает пустой файл, а ещё после вводе чисел либо ничего не происходит, либо появляется ошибка disk read error

[мисс_граффити]

 while i <= n do
begin
     read (f, a);
     writeln (a);
end;

это вечный цикл. а конец файла достигается довольно быстро...
i кто увеличивать будет?
и чему оно, по-твоему, равно ДО запуска цикла? как повезет?

Сообщение отредактировано: мисс_граффити - 10.12.2006 18:32