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

Окей. А чем посмотреть тогда типизированный файл или как записать типизированный файл что бы можно ьбыло его посмотреть?

Сообщение отредактировано: kosya4ok - 14.12.2007 20:20