uses Исполнители;

begin
  var количество := 0;
  foreach var страна in Страны do
    if страна.Название[1] = 'А' then
    begin
      Вывести(страна);
      количество += 1;
    end;
  количество.Вывести
end.  
  