Номер сотрудника, у которого ближайший день рождение к заданной дате

Program bazaD;
Uses crt;
type spisok=record
     fio: string;
     gndr: string;
     db: integer;
     pos: string;
     slr: string;
     end;
FT= file of spisok;
Var a:ft;
    i,z:integer;
    s:real;
    flag: boolean;
Procedure Sozd (var a: ft);
Var i,j:integer;
    zk:spisok;
begin
rewrite (a);
j:=1;
 while j<>9999 do
          begin
          write ('F.I.O: ');
          readln (zk.fio);
          write ('Pol:  ');
          readln (zk.gndr);
          write ('Den' rozhdeniya: ');
          Readln (zk.db);
          write ('Dolzhnost': ');
          readln (zk.pos);
          write ('Oklad: ');
          readln (zk.slr);
          write (a,zk);
          writeln (' dlya vihoda naberite "9999" ');
          readln (j);
          end;
close (a);
end;
Procedure vyvod (var a: ft);
Var i:integer;
    zk:spisok;
begin
reset (a);
 writeln ('   FIO          Pol   Den' Rozhdeniya   Dolzhnost'    Oklad  ');
  while not eof(a) do
   begin
    read (a,zk);
    write (zk.fio:0);
    write (zk.gndr:7);
    write (zk.db:16);
    write (zk.pos:13);
    write (zk.slr:10);
    writeln;
   end;
close (a);
end;
Procedure data (var a:ft);
var i,number:integer;
    zk:spisok;
begin
reset (a);
writeln ('Vvedite datu');
readln (number);
writeln ('Blizhaishiy den' rozhdeniya);
while not eof(a) do
begin
read (a,zk);
begin
if  number<=zk.db then
begin
write (zk.fio:6);
write (zk.db:9);
writeln;
end;
end;
end;
close (a);
end;
Procedure poisk (var a:ft);
var i:integer;
    zk:spisok;
    name:string;
begin
reset (a);
 writeln ('vvedite dolzhnost' dlya poiska ');
 readln (name);
 writeln ('spisok s zadannoy dolzhnost'u ');
 while not eof(a) do
 begin
  read (a,zk);
  if zk.pos=name then
  begin
    write (zk.fio:6);
    write (zk.pos:9);
    writeln;
  end;
 end;
close(a);
end;
begin
clrscr;
flag:=false;
repeat
assign (a,'fff');
writeln ('1: sozdanie');
writeln ('2: vivod ');
writeln ('3: poisk dnya rozhdeniya);
writeln ('4: poisk dolzhnosty');
writeln ('5: vihod');
readln (z);
 case z of
  1: sozd(a);
  2: vyvod (a);
  3: data (a);
  4: poisk (a);
  5: exit;
  end;
until flag;
readln
end.