Распечатать список студентов, фамилии которых начинаются с букв А и Б

Const n=15;
Type student=Record
      fam,name,otch,dat,xobbi:string[15];
      pol,sm,step:char;
      god,gpost:integer;
      Ozenka:array[1..3] of byte;
     End;
Var A:array[1..n] of student;
    i,j:byte;
Begin
    For i:=1 to n do
    Begin
      writeln('Введите информацию о ',i,'-ом студенте: ');
      write('Фамилия: ');readln(A[i].fam);
      write('Имя: ');readln(A[i].name);
      write('Отчество: ');readln(A[i].otch);
      write('Пол (м/ж): ');readln(A[i].pol);
      write('Дата рождения: ');readln(A[i].dat);
      write('Год рождения: ');readln(A[i].god);
      write('Год поступления в ОУ: ');readln(A[i].gpost);
      write('Семейное положение (d/n): ');readln(A[i].sm);
      For j:=1 to 3 do
      Begin
        write(j,'-ая оценка: ');
        readln(A[i].Ozenka[j]);
      End;
      write('Размер степендии: ');readln(A[i].step);
      write('Хобби: ');readln(A[i].xobbi);
    End;
    writeln('----------------------------------------------------');
    writeln('    Фамилия    | ','Оценка №1 | ','Оценка №2 | ','Оценка №3');
    writeln('----------------------------------------------------');
    For i:=1 to n do
     if (A[i].fam[1]='А')or(A[i].fam[1]='Б') then 
      writeln(A[i].fam:15,'|':1,A[i].Ozenka[1]:11,'|':1,A[i].Ozenka[2]:11,'|':1,A[i].Ozenka[3]:11);
    readln;
End.