Здравствуйте
помогите распеечатать список студентов, фамилии которых начинаются с буквыы Б, и их даты рождения.
нужно хотя бы 5 студентов
допустим:
Антонов 5,03,1975
Березников 10,05,1975
Булкин 30,11,1974
Уличкин 25,06,1975
Селезнев 6,10,1974
const
n = 5;
arr: array[1 .. n] of string =
( 'antonov 5,03,1975',
'bereznikov 10,05,1975',
'bulkin 30,11,1974',
'ulichkin 25,06,1975',
'seleznev 6,10,1974' );
var
i: integer;
begin
for i := 1 to n do
if arr[i][1] = 'b' then writeln(arr[i]);
end.