Как создать типизированный файл, file of Опции

[kosya4ok]

Всем привет! Почитал про типизированные файлы на форуме но так и не наашёл решение своей проблемы.
Хочу создать типизированный файл в который будут писать числа типа real.

const n = 8;
{type numbers = record
     num : real;
     end;}
type numbers = file of real;
var fname : string;
    i : integer;
    sum, k : real;
    ans : char;
    f1 : numbers;

function fi(p: integer): real;
var i : integer;
    sum : real;
begin

     sum := sqrt(3 * p);
     for i := p downto 1 do
         if (i = 1) then
             fi := sum
         else
             sum := sqrt(sum + 3 * (i - 1));
end;

procedure newfile(var f1 : numbers);
var s : string;
    num : real;
{with num_ref do}
begin
rewrite(f1);
{write(f1, num_ref);}
          for i := n downto 1 do
          begin
              if (i = 1) then
                 begin
                 num := sqrt(3);
                 writeln(f1, num);
                 break;
                 end
              else
                  begin
                  writeln(f1, fi(i));
                  end;
          end;
close(f1);
end;

procedure outputfile(var f1 : numbers; p : integer);
var s : string;

begin
     reset(f1);
     repeat
     readln(f1, s);
     write('f', p, '=');
     writeln(s);
     dec(p);
     until eof(f1);
end;

begin
clrscr;
writeln('Create a new file?');
readln(ans);
ans := upcase(ans);
if (ans = 'Y') or (ans = 'YES') then
   begin
   writeln('Enter name a file');
   readln(fname);
   assign(f1, fname);
   newfile(f1);
   outputfile(f1, n);
   end
else
    begin
    writeln('What file you want open?');
    readln(fname);
    assign(f1, fname);
    outputfile(f1, n);
    end;
readln;
end.

Пишет инвалидный тип файла. Помогите разобраться...

[kosya4ok]

А вы не объясните почему вот так вот можно писать в файл

num := fi(i);
write(f1, num);

А вот так вот нельзя.

num := fi(i);
write(f1, fi(i));

[Lapp]

А вы не объясните почему ... вот так вот нельзя.

write(f1, fi(i));

Грубо говоря, параметры оператора Write всегда передаются по адресу (по ссылке). Функция - это сложная структура, которая предусматривает передачу управления и возвращение значения. Когда ты пишешь так, то ты на самом деле как бы указываешь оператору Write адрес перехода, хотя он ожидает адрес той области памяти, которую тебе надо вывести на печать. Если бы компилятор не отловил ошибку, ты бы получил на печати совсем не то, что ожидал .
Это был образный ответ, упрощенный. На самом деле все сложнее, конечно. Но в случае с типизированными файлами довольно близко к действительности.