function afrika(fajlnev)
    % adatbetoltes
    f = fopen(fajlnev, "r");
    fgets(f);
    n = 0;
    while 1
        s = fgets(f);
        if s == -1; break; end
        n++;
        [t s] = strtok(s, "/");
        orsz{n} = t;
        [t s] = strtok(s, "/");
        ev(n) = str2num(t);
        evorsz{n} = [t orsz{n}];
    end
    fclose(f);

    % listazas
    [evorsz2 x] = sort(evorsz);
    for j = 1 : n
        k = x(j);
        fprintf("%d.\t%s\t%d\n", j, orsz{k}, ev(k));
    end
end