Помогите написать программу на Паскале

[sisaw]

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

[Streletz]

Самостоятельные попытки были? Ваши наработки?

[sisaw]

Сообщение от Streletz

Самостоятельные попытки были? Ваши наработки?

вот на что моего мозга хватило но это не то мне надо что бы и дату рождения выводил и фамилия на в
var s:string;
n,i:integer;
ych:array[1..99999] of string;
begin
writeln('Введите кол-во учеников');
readln(n);
for i:= 1 to n do
begin
readln(s);
if s[1] = 'В' then
ych[i]:=s;
end;
for i:= 1 to n do
if ych[i]<>'' then
writeln(ych[i]);
end.

[Streletz]

Для хранения сведений об учениках используйте запись. 1е поле фамилия, 2е поле дата рождения. С реализацией даты может помочь этот пример: Вывести следующий день, по введенной дате (pascal) .
Поиск делайте по 1му полю.