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

За

По поводу пергрузки: во-первых, write - не функция, а во вторых: "а оно надо?".

Сорри пока не выучил терминоголию, конечно не функция, а процедура. А вопрос был задан с целью экстеншена данной программки. Думал просто провести аналогия с cout.

Просто тогда write отложу пока в сторону пока не разберусь с разлиными передачами в процедуры и функции.

procedure proc1(a : integer);
begin
  inc(a);
end;

procedure proc2(var a : integer);
brgin
  inc(a);
end;

var i1,i2 : integer;
begin
  i1 := 10;
  i2 := 20;
  writeln(i1:4,i2:4);
  proc1(i1);
  proc2(i2);

Я так понимаю произошла передача переменных по ссылке?
Так а так

proc1(30);
proc2(40);

неполучится, т.к. низя ж передавать в процедуру константное выражение, а только адрес переменной?