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

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;
writeln('Начинаются на В');
for i:= 1 to n do 
if ych[i]<>'' then
writeln(ych[i]);
end.