jak sprawdzić czy autor jest kobietą

czy ktoś pomoże mi poprawieniu kodu mam tablicę dwuwymiarową w której przechowuję rekordy mam znależć autora-ów którzy są kobietami

procedure autorek (var bib:maciez2);
 var
    i,j:integer;

     begin
       for I:=1 to 4 do
            for j:=1 to 3 do
            begin
              write('sprawdza czy autor jest kobieta');
              if bib[i,j].autor[length(bib[i,j].autor]='a' then
              writeln('autor jest kobieta')
              else
                writeln('autor nie jest kobieta');
            end;
       end;

if bib[i,j].autor[length(bib[i,j].autor)]='a' then

Ale obecnie sprawdzanie czy imię kończy się na a nie daje pewności zresztą był o tym ostatnio jakiś temat na forum.

Do tego celu użył bym odpowiedniej osobnej funkcji, która pobiera imie i zwraca typ boolean. Funkcja ta, powinna posiadać tablicę stałych z wyjątkami imion. Ponieważ może się tak zdarzyć, że autorem książki będzie na przykłąd Kuba, Barnaba lub Maradona albo jeszcze jakiś mężczyzna z imieniem, z koncówką "a" i cały Twój zamysł będzie do niczego.

BYŁO NA FORUM:
http://4programmers.net/Forum/Delphi_Pascal/137598-wyjatki_w_kodzie_sprawdzajacym_plec_na_podstawie_imienia

Zamiast cokolwiek przeczytać lub poszukać lepiej spamować na forum...