Calcular la Edad

Pues verás. Si et paras a pensar cómo calculamos "de cabeza" los años, lo que hacemos primero es ver la diferencia de años; luego, la de meses, y por último los días.
Esta forma que hacemos, "traducida" a Pascal sería como:
TYPE TFecha=RECORD
                        anyo:WORD;
                        mes,dia:BYTE;
                      END;
//No sé si te dan esta estructura, pero vamos. Lo amoldas como más te guste
VAR f_nacimiento,f_actual:TFecha;
       edad:WORD;
//Ahora lo pondré en forma de función, para que lo puedas usar todas las veces que quieras
FUNCTION AnyosTranscurridos(fini,ffin:TFecha):WORD;
//Devuelve 0 si ffin<=fini
BEGIN
  IF ffin.anyo<=fini.anyo THEN AnyosTranscurridos:=0
  ELSE
    IF (ffin.mes>=fini.mes) AND (ffin.dia>=ffin.dia) THEN AnyosTranscurridos:=ffin.anyo-fini.anyo
    ELSE AnyosTranscurridos:=ffin.anyo-fini.anyo-1;
END;