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

begin
  Страны.ВывестиПострочно;

  foreach var страна in Страны do
    Вывести(страна);
    
  Страны.ОтсортироватьПо(страна -> страна.Население).ВывестиПострочно
end.