Как создать типизированный файл, 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.

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

[andriano]

Длина файла возвращается в количестве тех переменных указанного типа, что ты описал. Т.е. если в файле присутствует 100 14-байтных записей (точек), то FileSize(F) возвратит число 100. Длина же файла при этом составит 1400 байт.
Функция же sizeof возвращает не длину файла, а размер объекта в байтах. т.е. для одной точки это будет 14.

А если так type f1 = file of t3Dpoint, то sizeof(f1), то будут 128 что? Байт?И как это соотнесется с точками?

Это будет длина перемнной типа f1 в байтах. К длине файла она никакого отношения не имеет. Ведь, обрати внимание, ее тип не "3DPoint", а "File of 3DPiont", а это далеко не одно и то же.
Просто тип file - это тоже сложный тип, состоящий из нескольких полей, в которых хранится набор переменных, необходимых для доступа к файлу. С содержимым файла содержимое этих переменных никак не связано.
Если проводить аналогию, то файл и файловая переменная связаны примерно так же, как ячейка памяти и указательна ячейку памяти.