Как создать типизированный файл

[Kosya4ok]

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

const n = 8;
type numbers = file of real;
var fname : string;
    sum, k : real;
    ans : char;
    f1 : numbers;

function fi(var 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;
    i : integer;
begin
rewrite(f1);
          for i := n downto 1 do
          begin
              if (i = 1) then
                 begin
                 num := sqrt(3);
                 write(f1, num);
                 break;
                 end
              else
                  begin
                  num := fi(i);
                  write(f1, num);
                  {write(f1, fi(i));}
                  end;
          end;
close(f1);
end;

procedure outputfile(var f1 : numbers; p : integer);
var s : real;
begin
     reset(f1);
     repeat
     read(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.

Это вывод на консоль.

А это что в файле.

‚WХA‚шй3‚cэ¬‚^п
‚-!Фж‚I pД‚Жд
gЃГBЧі]

Вопрос. Как прочитать типизированный файл или как записать в файл (но не текстовый файл) так что бы мона было читать блокнотом?

[Alex21]

Типизированный файл в блокноте не прочитаешь - это записи.

[Kosya4ok]

Если вы внимательно читали, то я так и написал что в блокноте не читается. И попросил посоветовать как записать в файл так что бы мона было прочитать или поменять программу которая его открывает.

Тема разрулена в http://forum.vingrad.ru

[ADSoft]

если вы внимательно поняли - предыдущий человек правильно сказал.... что в блокноте нельзя посмотреть такие файлы так как бы вам этого хотелось.... тут 2 выбора
1. Написать отдельную прогу на Паскале/Делфи для просмотра записей.. .именно под данный тип файла .... именно с такими записями..... и установить по умолчанию для данного расширения... но это глупо
2. Записывать числа Real не как типизированый файл ... а как текстовый...соответственно нужно писать обработку записи и чтения таких файлов.... тогда можно смотреть в блокноте.....
но все это еще более глупо чем 1.....
ИМХО