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

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.