сформировать файл из записей, содержащих различные даты; исключить из файла все компоненты, содержащие весенние даты

uses crt;
const nmax=20;
      tg=2012;
 
type date = record
     day:  byte;
     mon:  byte;
     year: integer;
     end;
 
var  d: date;
     f,g: file of date;
     i,n:byte;
 
begin
assign(f,'C:\Date1.dta');
assign(g,'C:\Date2.dta');
rewrite(f);
repeat
write('Количество дат, не более ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Внесите данные о датах: ');
for i:=1 to n do
    with d do
         begin
         repeat
         write('День: '); readln(day);
         until day in [1..31];
         repeat
         write('Месяц: '); readln(mon);
         until mon in [1..12];
         repeat
         write('Год: '); readln(year);
         until (year>=1900) and (year<=tg);
         write(f,d);
         end;
reset(f);
rewrite(g);
while not eof(f) do
      begin
      read(f,d);
      with d do
           if not (mon in [3..5]) then write(g,d);
      end;
n:=1;
repeat
writeln('0-завершение работы');
writeln('1-просмотр исходного файла');
writeln('2-просмотр конечного файла');
readln(n);
if n=1 then
   begin
   reset(f);
   while not (eof(f)) do
         begin
         read(f,d);
         writeln(d.day:2,'.',d.mon:2,'.',d.year);
         end;
   end;
if n=2 then
   begin
   reset(g);
   while not (eof(g)) do
         begin
         read(g,d);
         writeln(d.day:2,'.',d.mon:2,'.',d.year);
         end;
   end;
until n=0;
close(f);
close(g);
readln;
end.

uses crt;
const tg=2012;
 
type date = record
     day:  byte;
     mon:  byte;
     year: integer;
     end;
 
var  d: date;
     f: file of date;
     i,n:integer;
 
begin
assign(f,'C:\Date.dta');
rewrite(f);
write('Количество дат: '); readln(n);
writeln('Внесите данные о датах: ');
for i:=1 to n do
    with d do
         begin
         repeat
         write('День: '); readln(day);
         until day in [1..31];
         repeat
         write('Месяц: '); readln(mon);
         until mon in [1..12];
         write('Год: '); readln(year);
         write(f,d);
         end;
close(f);
readln;
end.

uses crt;
 
type date = record
     day:  byte;
     mon:  byte;
     year: integer;
     end;
 
var  d: date;
     f,g: file of date;
 
begin
assign(f,'C:\Date.dta');
assign(g,'C:\Date1.dta');
reset(f);
rewrite(g);
while not eof(f) do
      begin
      read(f,d);
      with d do
           if not (mon in [3..5]) then write(g,d);
      end;
reset(g);
rewrite(f);
while not eof(g) do
      begin
      read(g,d);
      with d do write(f,d);
      end;
close(g);
erase(g);
writeln('Итоговый файл');
reset(f);
while not (eof(f)) do
      begin
      read(f,d);
      writeln(d.day:2,'.',d.mon:2,'.',d.year);
      end;
close(f);
readln;
end.