Определить, есть ли в классе ученики, у которых сегодня день рождения

program zadanie;
uses crt;
type baza=record
fio:string;
d:integer;
m:integer;
g:integer;
end;
var
f:file of baza;
c:baza;
i,n,dn,mn,gn:integer;
a:array[1..100] of baza;
begin
clrscr;
assign(f,'E:\bd.txt');
rewrite(f);
for i:=1 to 20 do begin
with a[i] do
begin
write('fio=');readln(fio);
write('den=');readln(d);
write('mesyc=');readln(m);
write('god=');readln(g);
if length(fio)>0 then write(f,a[i]);
end; end;
close(f);
reset(f);
write('segodnya den=');readln(dn);
write('segodnya mesyac=');readln(mn);
write('segodnya god=');readln(gn);
for i:=1 to 20 do begin
with a[i] do begin
if (d=dn) and (m=mn) then writeln('segodnya dnuha y ',a[i].fio);
end;end;
close(f);
end.