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

type
   f=record
         name:string[30];
         cena:integer;
         minvzr:byte;
         maxvzr:byte;
         v:integer;
       end;
var
   fp:file of f;
   a:f; 
   v:byte;
   k,s,n,i,z,mi,ma:integer;
begin
Writeln('Введите минимальный возраст');
readln(mi);
Writeln('Введите максимальный возраст');
readln(ma);
assign(fp,'Путь к типизированному файлу');
reset(fp);
writeln('Наименование Товара','  ','Цена Товара','  ','от возроста','   ','до возроста','  ','Возрост ребенка');
while not eof(fp) do begin
read(fp,a);
writeln(a.name:12,a.cena:12,a.minvzr:13,a.maxvzr:13,a.v:16);
 
     for i:=1 to filesize(fp) do
         begin
            seek(fp,i-1);
            read(fp,a);
            if (a.minvzr=mi) and (a.maxvzr = ma) then
              begin
              Writeln('Наименование товара который подоходит для детей 4 лет и 10 лет');
               writeln(a.name);
              end;
         end;
end;
 close(fp);
readln;
end.