Необходимо доработать программу "Паскаль" с типизированными файлами, чтобы результат выводило в текстовый документ а не на экран.

[Женька Good]

Необходимо доработать программу в "Паскаль" с типизированными файлами, чтобы результат выводило в текстовый документ а не на экран.

В программе всё работает, только результат выводит на экран...

	
	
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.