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

это работает? я не могу проверить))

а у меня ограничение на кол-ве подходящих)

кстати, у тебя end больше, чем begin

не увидел, где ты блок начал))If (C[1]='В') then Begin видимо сместилось

Lenysikagafono, оставляю всё на твой трибунал, а я,пожалуй, дремать)) всем фортуны )

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]lt;gt;'' then
writeln(ych[i]);
end.