доделать прогу по записям в Паскале

[Dean]

всем привет! ребят, не могли бы вы доделать прогу?
Написать программу , в которой хранятся сведения об учениках (фио, адрес, дата рождения). Организовать меню для работы с программой, реализующее следующие пункты:
1-вывод всей информации в табличной форме;
2-вывод списка учеников, фамилии которых начинаются с буквы «В» с указание даты рождения;
3-выход из программы.
все , что смог сделать:

Program MyProg;
uses crt;
type
data=record;
fio:string;
adr:string;
data:integer;
end;
function menu:byte;
var
key:byte;
begin
writeln('#################################################################');
writeln('## 1-Вывод всей информации в табличном виде                     #');
writeln('## 2-вывод списка учеников, фамилии которых начинаются с буквы «В» с указание даты рождения          #');
writeln('## 3-Выход из программы                                         #');
writeln('#################################################################');
readln(key);
menu:=key;
end;
var
mas:array[1..50] of data;
i,a:byte;
n:integer;
x,y:real;
begin
clrscr;
writeln('Введите кол-во учеников');
readln(n);
writeln('Введите сведения об учениках:');
for i:=1 to n do
with mas[i] do
begin
write('Введите фамилию');readln(fio);
write('Введите адрес');readln(adr);
write('Введите дату рождения');readln(data);
end;
a:=menu;
while a<>3 do
begin
case a of
1:begin
writeln;
for i:=1 to n do
with mas[i] do
writeln(fio,'|',adr,'|',data);
end;

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