Выбрать имена файлов, созданных ранее указанной даты

const fname='1.dat';
type katalog=record
             fl:string;
             dn,ms,gd:integer;
             end;
var f:file of katalog;
    z:katalog;
    n,i:integer;
begin
assign(f,fname);
rewrite(f);
write('Сколько файлов записать в каталог n=');
read(n);
writeln('Введите имена файлов');
for i:=1 to n do
 begin
  readln(z.fl);
  z.dn:=1+random(31);
  z.ms:=1+random(12);
  z.gd:=2000+random(14);
  write(f,z)
 end;
close(f);
write('Файл создан');
end.

const fname='1.dat';
type katalog=record
             fl:string;
             dn,ms,gd:integer;
             end;
var f:file of katalog;
    z:katalog;
    d,m,g,k:integer;
begin
assign(f,fname);
reset(f);
writeln('Введите дату, день, месяц и год');
read(d,m,g);
k:=0;
while not eof(f) do
 begin
  read(f,z);
  if (z.gd<g)or((z.gd=g)and(z.ms<m))or((z.gd=g)and(z.ms=m)and(z.dn<d)) then
   begin
    writeln(z.fl);
    k:=1
   end;
 end;
close(f);
if k=0 then write('Нет файлов, созданных ранее указаннной даты');
readln
end.
  z.dn:=1+random(31);
  z.ms:=1+random(12);
  z.gd:=2000+random(14);
  write(f,z)
 end;
close(f);
write('Файл создан');
end.