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

var s:string;n,i:integer;ych:array[1..99999] of string;beginwriteln('Введите кол-во учеников');readln(n);for i:= 1 to n dobegin readln(s);if s[1] = 'В' then ych[i]:=s;end;writeln('Начинаются на В');for i:= 1 to n do if ych[i]<>'' thenwriteln(ych[i]);end.