Составить инвентарную ведомость.

[Lera64]

И еще помогите пожалуйста.Прям для зачета надо срочно!
Составить инвентарную ведомость склада, включив следующие данные: вид продукции, стоимость, сорт, количество.В новый файл записать информацию о той продукции, количество которой менее заданной величины.Заранее спасибо!

[Stilet]

Type
 TRec=record
   Name,Sort:string[100];
   Price:Double;
   Count:integer;
 end;
var r:Trec; q,w:file of TRec;
 cnt,i:integer;
begin
 assign(q,'f1');assign(w,'f2');rewrite(q);rewrite(w);
 write('Заданное Кол-во:');readln(Cnt);
 for i:=1 to 10000 do begin
  writeln('Новый товар: ');
   write('Имя:');readln(r.Name);
   write('Сорт:');readln(r.Sort);
   write('Цена:');readln(r.Price);
   write('Кол-во:');readln(r.Count);
   write(q,r);
   if cnt<r.Count then write(w,r);
 end; close(q);close(w);
end.