Файлы, типизированный файл, работа с файлами

uses crt;
 const nmax=50; p=10000;
       line='-------------------------------------------------';
       shap='|  Nazvanie  | Kolichestvo | Stoimost |Data postuplenia|';
 type tovar=record
      name:      string[30];
      cena: real;
      kolvo: real;  data: real; m,d:integer;
 end;
 
 var st: tovar;
     f3: file of tovar;
     i,j,n,k,x: integer;  dat:tovar;   d1:tovar;
 
 function pr_data(dt:tovar):boolean;
begin
pr_data:=(dt.m in [1..12])and
         ((dt.m in [1..12])and(dt.d in [1..31]))or
         ((dt.m in [1,3,5,7,8,10,12])and(dt.d in [1..31])) or
         ((dt.m in [4,6,9,11])and(dt.d in [1..30])) or
         ((dt.m=2)and(dt.d in [1..29]))
end;
 
function bolshe(d1,d2:tovar):boolean;
begin
 
bolshe:=(d1.m-d2.m>1)or((d1.m-d2.m=1)and(d1.d>d2.d))
end;
 
 begin
 clrscr;
 assign(f3,'tovari.txt');
 rewrite(f3);
 repeat
 write('Vvedite skolko tovarov, nebolshe ',nmax,', n=');
 readln(n);
 until n in [1..nmax];
 writeln('Vvedite info o tovare');
 for i:=1 to n do
 begin
 writeln('Tovar ',i);
     with st do
          begin
           write('Nazwanie: ');
           readln(name);
 
           write('Stoimost: ');
           readln(cena);
 
           write('Kolichestvo: ');
           readln(kolvo);
           repeat
           writeln('Vvedite datu ot 01.01 do 31.12');
           readln(dat.d,dat.m);
           if not pr_data(dat) then writeln('Data neverna');
           until pr_data(dat);
          write(f3,st);
          end;
          end;
 close(f3);
 reset(f3);
 n:=0;
 clrscr;
d1.m:=12;
d1.d:=18;
k:=0;
 while not (eof(f3)) do
       begin
       read(f3,st);
       with st do
        begin
         if bolshe(d1,dat) and (cena>=p) then
          begin
          inc(n);
          if n=1 then
             begin
             writeln;
             writeln(line);
             writeln(shap);
             writeln(line);
             end;
           write('| ',name,' |  ',kolvo,'  | ',cena,' | ',dat.d,'.',dat.m,' |'); //znayu, chto tut ix vivodit
 
    writeln;
          writeln(line);
          end;
        end;
       end;
 if n=0 then write('tovar otsutstvuet');
 close(f3);
 end.