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

type
  Sub = record //запись о предмете включающая
    subName : string; //название предмета
    value : Byte; //оценку
  end;
  BD = record //запись о студенте
    studName : string; //имя студента
    SubArray : array of Sub; //массив предметов
  end;
  Ar = array of BD; //массив студентов
 
var
  mass : Ar;
  i, n, j : Byte;
  s : string;
  
begin
  Write('Введите кол-во студентов='); ReadLn(n);
  SetLength(mass, n); 
  {ввод данных}
  for i := 0 to n-1 do
  begin
    Write('Введите имя ', i+1, ' студента: '); ReadLn(mass[i].studName);
    repeat
    begin
      Write('Введите название предмета: '); ReadLn(s);
      if (s <> '') then
      begin
        SetLength(mass[i].SubArray, Length(mass[i].SubArray)+1);
        mass[i].SubArray[Length(mass[i].SubArray)-1].subName := s;
        Write('Введите оценку по данному предмету: '); ReadLn(mass[i].SubArray[Length(mass[i].SubArray)-1].value);
      end;
    end;
    until (s = ''); //пока не будет введена строка, запрашиваем информацию о предметах
  end;
  {поиск и вывод}
  for i := 0 to n-1 do
    if (mass[i].studName[1] = 'А') then //если имя начинается на "А"
    begin
      WriteLn('Студент ', mass[i].studName, ':');
      for j := 0 to Length(mass[i].SubArray)-1 do
        WriteLn(#9, #9, mass[i].SubArray[j].subName, ': ', mass[i].SubArray[j].value);
    end;
end.