Тип record. Товары типо

[--Sashok--]

Помогите пожайлуста с задачей, мне нужно ввести названия товара и его старую цену после этого ввести процент изменения цены товара и записать новую цену, вывести на экран.так вот это все происходит ток с одним файлом товар1 а мне нужно чтобы исходные даные с новой ценой сохранялись в файл товар2

вот код

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type tovar=record
   tov: string[15];
   nov: real;
   sta: real;
   end;
   var s:tovar;
   Fs: file of tovar;
   v,n,i:integer;
begin
write('Vvedit kilkist tovary: ');
readln(n);
write('Vvedit %= ');
readln(v);
   assign (Fs,'tovar1');
   rewrite(Fs);
   for i:=1 to n do
   begin
   write (' Nazva_tovaru: ');
   readln(s.tov);
     write('Vvedit stary_ciny: '); readln(s.sta);
     s.nov:=(s.sta*v)/100 +s.sta;
     write(Fs,s);
     end;
     close(Fs);
     reset(Fs);
     while not eof(Fs) do
     begin
       read(Fs,s);
         writeln(' Nazva Tovaru - ',s.tov:5, ' Stara Cina = ',s.sta:5:2, ' Nova Cina =', s.nov:5:2);
         end;
         close(Fs);
         readln;
end.

[--Sashok--]

Уделите минутку, посмотрите что к чему?

[whatever]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type tovar=record
   tov: string[15];
   nov: real;
   sta: real;
   end;
var s:tovar;
   Fs: file of tovar;
   Fs2:textfile;
   STR:string;
   v,n,i:integer;
begin
write('Vvedit kilkist tovary: ');
readln(n);
write('Vvedit %= ');
readln(v);
   assign (Fs,'tovar1');
   rewrite(Fs);
   for i:=1 to n do
   begin
   write (' Nazva_tovaru: ');
   readln(s.tov);
     write('Vvedit stary_ciny: '); readln(s.sta);
     s.nov:=(s.sta*v)/100 +s.sta;
     write(Fs,s);
     end;
     close(Fs);
     reset(Fs);
     assignfile(Fs2,'tovar2.txt');
     rewrite(Fs2);
     while not eof(Fs) do
       begin
         read(Fs,s);
         STR:=(' Nazva Tovaru - '+s.tov+' Stara Cina = '+FloatToStr(s.sta)+' Nova Cina ='+FloatToStr(s.nov));
         writeln(STR);
         write(Fs2,STR);
         write(Fs2,#13#10);
       end;
         close(Fs);
         close(FS2);
         readln;
end.

Это с текстовиком на выходе. Если нужен типизированый файл, то:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type tovar=record
   tov: string[15];
   nov: real;
   sta: real;
   end;
var s:tovar;
   Fs,Fs2: file of tovar;
//   Fs2:textfile;
   STR:string;
   v,n,i:integer;
begin
write('Vvedit kilkist tovary: ');
readln(n);
write('Vvedit %= ');
readln(v);
   assign (Fs,'tovar1');
   rewrite(Fs);
   for i:=1 to n do
   begin
   write (' Nazva_tovaru: ');
   readln(s.tov);
     write('Vvedit stary_ciny: '); readln(s.sta);
     s.nov:=(s.sta*v)/100 +s.sta;
     write(Fs,s);
     end;
     close(Fs);
     reset(Fs);
     assignfile(Fs2,'tovar2');
     rewrite(Fs2);
     while not eof(Fs) do
       begin
         read(Fs,s);
         STR:=(' Nazva Tovaru - '+s.tov+' Stara Cina = '+FloatToStr(s.sta)+' Nova Cina ='+FloatToStr(s.nov));
         writeln(STR);
         write(Fs2,s);
//         write(Fs2,#13#10);
       end;
         close(Fs);
         close(FS2);
         readln;
end.

Хотя мне первый вариант больше нравится.

[--Sashok--]

Спасибо большое!