Создать новый файл данных, содержащий сведения о товарах, цена которых более заданной суммы

Program pr1;
Type
  vedom = record
     Naimenovanie:string[30];        
     colichestvo,chena,summa:integer;               
  end;
Var
   f: file of vedom;   
   s:real; 
   k,n,i:integer;
   x:vedom;        
   begin
   assign(f,'D:\\База.txt');     
   rewrite(f);                               
   write('Введите базу'); readln(N);         
   for i:=1 to n do begin                 
       write('Наименование товара:'); readln(x.Naimenovanie);
       write('Цена:'); readln(x.chena);
       write('Количество товара:'); readln(x.colichestvo);
       write(f,x); 
   end;
   close(f);                                        
   reset(f); 
   s:=0; k:=0;
   while not eof(f) do begin 
      read(f,x);
   s:=s+(x.colichestvo*x.chena);   k:=k+1; end;
   if k<> 0 then writeln('Сумма = ', s:4:2);
   close(f);
   readln;
   {assign(d,'D:\\Новая база.txt')
   rewrite(d);
   if} 
   END.