Текст выводит в таком виде " buratino „ @… "

[Женька Good]

Есть рабочая программа с типизированными файлами, там необходимо результат вывести в текстовый документ, но при выводи результат сохраняется в таком виде "buratino „ @… "

вот программа:

Program no_type;
Uses crt;
type pechenki=record
     name:string[12];
     c_zakup,c_prod:real;
     Zakup, Prod: Integer;
     end;
     myfile=file of pechenki;
Var f1:myfile;
    ob,ob1,Na_zakup, Na_prodaz:real;
    i,n:integer;
    c1:pechenki;
Begin
    CLRSCR;
    Write('Vvedite kol-vo naimenovany: ');Readln(n);
    Assign(f1,'c:\rez');
    {Otkryvaem fail f1 dlya zapisi v nego dannyh}
    rewrite(f1);
     For i:=1 to n do
        begin
          Write('Vvedite Naimenovanie produkcii: ');readln(c1.name);
          Write('Vvedite cenu zakupki: '); readln(c1.c_zakup);
          Write('Vvedite cenu prodazi: '); Readln(c1.c_prod);
          Write('Vvedite zakuplennoe kol-vo: ');Readln(c1.zakup);
          Write('Vvedite prodannoe kol-vo: ');Readln(c1.prod);
          {zapisyvaem vvedennye dannye v fail f1}
          write(f1,c1);
          end;
     {zakryvaem fail f1}
    Close(f1);
    Writeln('/----------------------------------------------------------------------\');
    Writeln('|                                 BASE                                 |');
    Writeln('|----------------------------------------------------------------------|');
    Writeln('| # | Naimenovanie | Cena zakupki | Cena prodazy | Zakupleno | Prodano |');

    {otkryvaem fail dlya schityvaniya dannyh}
    reset(f1);
    For i:=1 to n do   {vivodim soderzimoe}
        begin          {faila na ekrane}
        {schityvaem ocherednye dannye iz faila}
        read(f1,c1);
        Writeln('|---|--------------|--------------|--------------|-----------|---------|');
        Write('| ',i:1,' |',c1.name:12,'  |', c1.c_zakup:13:1,' |', c1.c_prod:13:1,' |', c1.zakup:9,'  |', c1.prod:7,'  |');
        Writeln;
        Writeln('|---|------------------------------------------------------------------|');

        Na_zakup:=c1.c_zakup*c1.zakup;
        Na_prodaz:=c1.c_prod*c1.prod;
        ob:=Na_prodaz-na_zakup;
        ob1:=Na_zakup-Na_prodaz;

        Writeln('|   |Na zakupku potratili ==> ',na_zakup:0:1,'                                    |');
        Writeln('|   |------------------------------------------------------------------|');
        Writeln('|   |S prodazy poluchili ==> ',na_prodaz:0:1,'                                     |');
        Writeln('|   |------------------------------------------------------------------|');
        If ob>ob1 then
        Writeln('|   |Pribyl sostavila ==> ', ob:0:1,'                                        |')
        else Writeln('|   |Ubytok sostavil ==> ',ob1:0:1,'                              ');
        write(f1,c1);
        end;
        Writeln('|----------------------------------------------------------------------|');
readln;
Close(f1);
end.

[Mad_Cat]

результат вывести в текстовый документ, но при выводи результат сохраняется в таком виде "buratino „ @… "

Просто выводить надо не запись целиком как у тя

 write(f1,c1);

а по полям

write(f,c1.name);write(f,c1.c_zakup);write(f,c1.c_prod); {и тд}

и

 f:text;

а не file of pechenki

[Женька Good]

Сообщение от Mad_Cat

и

 f:text;

а не file of pechenki

в том-то и смысл, что

File of Pechenki

[Mad_Cat]

необходимо результат вывести в текстовый документ

текстовый документ = text а не File of Pechenki

[Женька Good]

Сообщение от Mad_Cat

текстовый документ = text а не File of Pechenki

я упоминал, что прграмма с типизированными файлами

[Mad_Cat]

типизированный файл <> текстовый документ! Пока вы не поймете разницу вы не сможете вывести записи в удобочитаемом виде

[Женька Good]

Сообщение от Mad_Cat

типизированный файл <> текстовый документ! Пока вы не поймете разницу вы не сможете вывести записи в удобочитаемом виде

ну пусть это будет не текстовый файл, а какой тогда?
Мне из него нужно будет взять инфу. Чем его потом открыть?

[whatever]

Сообщение от Женька Good

Есть рабочая программа с типизированными файлами, там необходимо результат вывести в текстовый документ, но при выводи результат сохраняется в таком виде "buratino „ @… "

Если в задании так и написано, то делай, как говорит Mad_Cat.
А если нужен именно File of Pechenki, тогда и программу для открытия этого файла тебе придется писать самому.

[Женька Good]

Я уже сам разобрался, никто не дал правильного ответа.