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

[покемон21]

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

[ZX Spectrum-128]

Type 
 Stud=record
  Fam,im,ot:string[60];
  Dr:string[10];
 End;
Var
 Anketa:array [1..n] of stud;
...
For i:=1 to n do
 Begin
  If anketa[i].fam[1]='В' then
   Begin
    Writeln(anketa[i].im);
     // и печатаем остальные анкетные данные
   End;
End;