Информатика (массивы) срочно пожалуйста!!!
1. В массиве фамилия и пол
Вывести фамилии девочек начинающихся на "А" и мальчиков оканчивающихся на "в"

program raf105;

var fam,pol:array[1..100] of string;

n,i:integer;

begin

write('Введите количество детей: ');

readln(n);

writeln('Вводите фамилии и пол (Заглавной буквой М/Ж)');

for i:=1 to n do

begin

 writeln;

 write('[',i,'] ','Фамилия: ');

 readln(fam[i]);

 write('    Пол: ');

 readln(pol[i]);

end;

writeln;

writeln('Фамилии девочек начинающиеся на "А" и мальчиков заканчивающиеся на "в"');

for i:=1 to n do

 if (fam[i][1]='А') and (pol[i]='Ж') or (fam[i][length(fam[i])]='в') and (pol[i]='М')

   then writeln(fam[i]);

end.

Язык программирования PascalABC