Информатика (массивы) безотлагательно пожалуйста!!!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